VBAでExcelからPowerPointﾌｧｲﾙを生成することはできますか？ Excelﾌｧｲﾙ(2003)のｾﾙ内の値を元にして､ PowerPointﾌｧｲﾙ(2003)を生成したいと考えています｡ Ex…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

VBAでExcelからPowerPointﾌｧｲﾙを生成することはできますか？

Excelﾌｧｲﾙ(2003)のｾﾙ内の値を元にして､
PowerPointﾌｧｲﾙ(2003)を生成したいと考えています｡

Excel VBA または PowerPoint VBA を使って､可能でしょうか？

可能ならば､以下の場合にどのようなﾌﾟﾛｸﾞﾗﾑになるか
ｺｰﾄﾞの実例を挙げて､ご教示いただけないでしょうか｡

･Excelﾌｧｲﾙ名： sause.xls
･ｼｰﾄ名： Sheet1
･ｾﾙA1の値： "ﾃｽﾄ文字列"
･PowerPointﾌｧｲﾙ名： output.ppt
･ｽﾗｲﾄﾞ1は空っぽ
･ｽﾗｲﾄﾞ2にﾃｷｽﾄｵﾌﾞｼﾞｪｸﾄがあり､ｾﾙA1の値が設定されている

よろしくお願いします｡

●質問者: jetta_swingin
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● きゃづみぃ
●100ﾎﾟｲﾝﾄ

Sub Macro1()
Dim objPpt As Object  '実行時ﾊﾞｲﾝﾃﾞｨﾝｸﾞなのでPowerPointの参照設定は不要
Dim objFile As Object

strPPTFullPath = "C:\test\output.ppt"
Set objPpt = CreateObject("PowerPoint.Application")

objPpt.Visible = True

objPpt.Presentations.Open Filename:=strPPTFullPath, ReadOnly:=msoFalse
Set objFile = objPpt.ActivePresentation


objFile.Slides(2).Shapes(1).TextFrame.TextRange = Range("A1")
objFile.Save
objFile.Close

objPpt.Quit

End Sub

objFile.Slides(2).Shapes(1).TextFrame.TextRange = Range("A1")

ここの箇所ですが
Slides(2)は 2番目のｽﾗｲﾄﾞ
Shapes(1)は1番目のﾃｷｽﾄ(などのような類のもの)を表しています｡

うまくいかない場合は､ここの値を調整してみてください｡

あと
strPPTFullPath = "C:\test\output.ppt"
はﾊﾟﾜｰﾎﾟｲﾝﾄのﾌｧｲﾙのﾌﾙﾊﾟｽを指定してください｡

きゃづみぃさんのｺﾒﾝﾄ
あとこのﾌﾟﾛｸﾞﾗﾑでは既存のPowerPointﾌｧｲﾙのﾃｷｽﾄにｾﾙA1の値をｾｯﾄするだけのことをやっています｡もし､PowerPointのﾌｧｲﾙ自体､生成するならばまた別ですが･･･｡

jetta_swinginさんのｺﾒﾝﾄ
はい､PowerPointのﾌｧｲﾙ自体を新規生成するのが目的でした｡書き方が曖昧ですいませんでした｡

▽2 ● きゃづみぃ
●500ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

こちらはﾌｧｲﾙを生成します｡

Sub Macro1()
Dim objPpt As Object  '実行時ﾊﾞｲﾝﾃﾞｨﾝｸﾞなのでPowerPointの参照設定は不要
Dim objFile As Object

strPPTFullPath = "C:\test\output.ppt"
Set objPpt = CreateObject("PowerPoint.Application")

objPpt.Visible = True

objPpt.Presentations.Add
Set objFile = objPpt.ActivePresentation
Set pslide1 = objFile.Slides.Add(1, 12)
Set pslide2 = objFile.Slides.Add(1, 12)
objPpt.Presentations(1).Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal _
 , 100, 100, 200, 50).TextFrame.TextRange.Text = Range("A1")
 
objFile.SaveAs strPPTFullPath
objFile.Close

objPpt.Quit

End Sub

jetta_swinginさんのｺﾒﾝﾄ
まさに､希望通りの挙動です！ありがとうございました！