将从Excel到Powerpoint的命名范围粘贴到命名的形状 - VBA

我想要构建一个将我们的Excel-Data-Sheet与我们的Reporting-Powerpoint-Presentation连接起来的宏。所以我选择并复制了这个命名的范围（“A”）。然后，我想将数据粘贴到Powerpoint中与我的范围（“A”）具有相同名称的形状中。将从Excel到Powerpoint的命名范围粘贴到命名的形状 - VBA

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时一样。

任何帮助将非常感激。

来源

2012-08-29 limfinity

不幸的是我通过删除我的大学老Dropbox帐户失去了图片。我删除了这个问题中的链接，我认为问题仍然很清楚。 – limfinity

谢谢。我删除了我的评论。 –

这为我工作（办公室2007）...

Sub Tester() 

    Dim ppt, sld 

    'presentation is already open... 
    Set ppt = GetObject(, "powerpoint.application") 
    Set sld = ppt.activepresentation.slides(1) 

    ActiveSheet.Range("A1:B2").Copy 

    sld.Shapes(1).Table.Cell(1, 1).Select 
    ppt.ActiveWindow.View.Paste 

    Set sld = Nothing 
    Set ppt = Nothing 

End Sub

来源

2012-08-29 22:39:12

谢谢，就是这样。 – limfinity

'this is how to extract each cell information 
'assuming that ppt communication is already done. 

Dim n As Integer, j As Integer 
Dim ultimaFila As Long  

j = 1 'columna 
ultimaFila = Range("A65536").End(xlUp).Row 

For n = 1 To ultimaFila 

    pptShape.Table.cell(n, j).Value = Application.Workbooks("Book1").Worksheets("Sheet1").Cells(n, j).Value   


Next n 

End Sub

来源

2012-08-30 00:21:08 BrOSs

将从Excel到Powerpoint的命名范围粘贴到命名的形状 - VBA

回答

相关问题