前提
VBA初心者です。
Excel VBAのみでPowerpointへの画像の貼り付け等を行いたいです。
実現したいこと
Excel VBAを用いて指定のフォルダ内の複数の画像をPowerPointのスライドに並べたいです。
現在、下記のコードによりフォルダ内の1枚の画像をExcelに貼り付ける → ExcelからPowerPointのスライドに画像を貼り付けるということはできましたが、以下2点の方法が分かりません。
①フォルダ内の画像をそのままPowerpointへ貼り付ける
②フォルダ内にある複数の画像をPowerPointへ貼り付ける
どうかご教授お願い致します。
発生している問題・エラーメッセージ
エラーメッセージ
### 該当のソースコード ```VBA ソースコード Sub Image02() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("画像") With Sheets("画像").Pictures.Insert("C:\Users\xxxx\Desktop\xxx\xx.jpg") .Top = Range("B2").Top .Left = Range("B2").Left If .Width > Range("B2").Width Then .Width = Range("B2").Width End If If .Height > Range("B2").Height Then .Height = Range("B2").Height End If .Cut End With With Sheets("画像") ws.Range("B2").Select .Pictures.Paste End With '------------------------------------------------- Dim ppApp As New PowerPoint.Application Dim ppPt As Presentation Dim ppSlide As Slide Dim ppShape As PowerPoint.Shape 'ppApp.Visible = True Set ppPt = ppApp.Presentations.Open(ThisWorkbook.Path & "\sample.pptx") 'スライド番号1を指定 Set ppSlide = ppPt.Slides(1) Set ws = ThisWorkbook.Worksheets("画像") 'セル範囲を画像で貼りつけ ws.Range("B2").CurrentRegion.Copy 'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。 ppSlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse Set ppShape = ppSlide.Shapes(ppSlide.Shapes.Count) '最後の図形 ppShape.Top = Application.CentimetersToPoints(1) '上位置 ppShape.Left = Application.CentimetersToPoints(1) '左位置 ppShape.LockAspectRatio = msoTrue '縦横比を固定 ppShape.Width = Application.CentimetersToPoints(10) '横幅 End Sub
試したこと
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。