0

私はvbaを初めて使用します。チャートとタイトルを含むpptを生成したいと思います。次のコードを使用していますが、問題があります。提案してください。

Set pptobj = CreateObject("PowerPoint.Application")
pptobj.Visible = TRUE
Set presentn= pptobj.Presentations.Add
Dim dirtemp
dirtemp= CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
Dim tempImg
tempImg = dirtemp+"\test.gif"
Dim cnt
ind = 1
'my chart is in chartobj
if Not IsNull ( chartobj) then
    presentn.Slides.Add ind, 8
    chartobj.ExportPicture tempImg, "gif"        
    presentn.Slides(ind).Shapes(1).TextFrame.TextRange.Text = "some title"
    presentn.Slides(ind).Shapes(2).AddPicture tempImg, false, true, 50, 50
ind = ind + 1
end if

ppLayoutChart（値8）を使用しています。ただし、layout = 12（ppLayoutBlank）を使用すると、グラフを正常に生成できますが、タイトルを追加する方法はありません:(

4

1 に答える 1

0

空白のレイアウトスライドでは、図形がないため、.Shapes（1）は何も返しません（参照するとエラーがスローされますね？）

空白のスライドにタイトルを追加する必要がある場合は、テキストシェイプを追加し、そのテキストを設定して、好みに合わせてフォーマットする必要があります。

ダミーのppLayoutChartスライドを追加し、そのタイトルテキストを設定し、それを実際のスライドにコピーして貼り付けてから、ダミーのスライドを削除する方が簡単な場合があります。これにより、「疑似タイトル」が適切にフォーマットされます。

または、もっと簡単に、空白を追加せず、タイトルのみのレイアウトスライドを追加します。

于 2012-05-03T15:37:33.483 に答える