Excel-Data-Sheet を Reporting-Powerpoint-Presentation に接続するマクロを作成したいと考えています。この名前付き範囲 ("A") を選択してコピーしました。次に、範囲 (「A」) と同じ名前の Powerpoint の図形にデータを貼り付けます。
Sub SyncWithPPT()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptShape As PowerPoint.Shape
Set pptApp = New PowerPoint.Application
pptApp.Visible = msoTrue
Set pptPres = pptApp.presentations.Open("workingPath")
ActiveWorkbook.Names("A").RefersToRange.Select
Selection.Copy
Set pptShape = pptPres.Slides("anySlide").Shapes("A")
pptShape.Table.cell(1, 1).Shape.TextFrame.TextRange.Paste 'Here it won't paste correctly
End Sub
貼り付けを除いて、すべてが正常に機能します。選択範囲を貼り付けると、すべてがセル (1, 1) に貼り付けられます。
しかし、各セルを別のセルにコピーしたい。STRG + V で貼り付けたときと同じように。
どんな助けでも本当にありがたいです。