基本圖+標題使用vba的ppt

我是vba新手。我想用圖表和標題生成一個ppt。我正在使用以下代碼，但遇到問題。請建議。基本圖+標題使用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），我可以成功生成圖表，但是我無法添加標題，然後:(

來源

2012-05-03 Supra

在空白布局幻燈片上，將沒有形狀，所以.Shapes（1）不會返回任何內容（當您引用它時會引發錯誤，是的？）

如果您需要將標題添加到空白幻燈片，則必須添加文本形狀，設置其文字和格式化的味道。

這可能是簡單的增加一個虛擬ppLayoutChart幻燈片，設置它的標題文字，複製/粘貼該到你真正幻燈片，然後刪除虛擬幻燈片。這將確保「僞標題」的格式應該是。

或者更簡單，但不要添加空白，只添加標題佈局幻燈片。

來源

2012-05-03 15:37:33

bravo！這工作，謝謝！ – Supra

基本圖+標題使用vba的ppt

回答

相關問題