基本图表+标题使用vba for ppt答案

【问题标题】：basic chart + title using vba for ppt基本图表+标题使用vba for ppt
【发布时间】：2012-05-13 00:04:35
【问题描述】：

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

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

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

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

添加一个虚拟 ppLayoutChart 幻灯片可能更简单，设置其标题文本，将其复制/粘贴到您的真实幻灯片上，然后删除虚拟幻灯片。这将确保“伪标题”的格式正确。

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

【讨论】：