エクセルからパワーポイントを操作し、
エクセルに入力されている内容でパワーポイントを作成するマクロを作りたいと思っています。
エクセルのセルには文章、フォント種類、フォントサイズなどを事前に入力しています。実行すると文章を把握しデスクトップへパワーポイントに出力する様にしているのですが、フォント種類の変更やフォントサイズの変更がうまくいきませんでした。
コードは入力しているセル全てに変数を作り、
1行目の部分をまず何とかでないかという状態のコードになっています。2日間色々試して悩んでいますが初心者の為解決できませんでした。
コードはできていませんができれば座標もエクセルのセル入力で左端、上端からの距離で指定したいです。
仕事中はPCを確認できないため返答できるのが遅くなってしまいますが宜しくお願いします。
エクセルシート
A B C D E
1 タイトル HGゴシックE 8
2 TEST1 HGゴシックE 8
3 TEST2 HGゴシックE 8
Sub パワーポイント作成()
Dim objPpt As Object
Dim objFile As Object
Dim i As Long ’セル変更用
Dim Pword1 As String '挿入文章1を指定
Dim Fname1 As String ’文章1用フォント
Dim Fsize1 As Long ’文章1用フォントサイズ
Dim Pword2 As String ’挿入文章2を指定
Dim Fname2 As String ”文章2用フォント
Dim Fsize2 As Long ’文章2用フォントサイズ
Dim Pword3 As String
Dim Fname3 As String
Dim Fsize3 As Long
Pword1 = Cells(2+i,2)
Fname1 = Cells(2+i,2)
Fsize1 = Cells(2+i,2)
i = i + 1
Pword2 = Cells(2+i,2)
Fname2 = Cells(2+i,2)
Fsize2 = Cells(2+i,2)
i + i + 1
Pword3 = Cells(2+i,2)
Fname3 = Cells(2+i,2)
Fsize3 = Cells(2+i,2)
strPPTFullPath = "C:¥Documents and settings¥user¥デスクトップ¥output .ppt" 'デスクトップを指定しています
Set objPpt = CreateObject("PowerPoint.Application")
objPpt.Visible = True
objPpt.Presentations.Add
Set objFile = objPpt.ActivePresentation
Set pslide1 = objFile.Slides.Add(1, 12)
with objPpt.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 60, 60, 200, 50).TextFrame.TextRange.Text = Pword1
with objPpt.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 60, 60, 200, 50).TextFrame.TextRange.font.NameFarEast = Fname1
End with
objPpt.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50).TextFrame.TextRange.Text = Pword2
objPpt.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 130, 130, 200, 50).TextFrame.TextRange.Text = Pword3
objFile.SaveAs strPPTFullPath
objFile.Close
objPpt.Quit
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/12/02 23:11
2015/12/03 13:35