Question

我是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），我能够成功生成图表，但是我无法添加标题:(

Answer 1

在空白布局幻灯片上，没有形状，所以.Shapes（1）不会返回任何内容（当你引用它时会抛出错误，是吗？）

如果您需要为空白幻灯片添加标题，则必须添加文本形状，设置文本并将其格式化为品味。

添加虚拟ppLayoutChart幻灯片，设置其标题文本，将其复制/粘贴到真实幻灯片，然后删除虚拟幻灯片可能更简单。这将确保“伪标题”按照应有的格式进行格式化。

或者更简单，不要添加空白，添加仅标题的布局幻灯片。

基本图表+标题使用vba进行ppt

1 个答案: