將Excel表格複製到PowerPoint中的最佳方法（2010）？

我試圖將一系列Excel表格轉換爲PowerPoint，並在Office 2013中成功爲此創建了一個宏，但我試圖將其應用於Office 2010.將Excel表格複製到PowerPoint中的最佳方法（2010）？

問題是將表格粘貼到PowerPoint時， Office 2010似乎需要唯一/不同的代碼。

我原本：

'Copying Tables to PowerPoint 
Set PPApp = GetObject(, "Powerpoint.Application") 
Set PPPres = PPApp.ActivePresentation 
PPApp.ActiveWindow.ViewType = ppViewSlide 

For i = 0 To Table3 
    Sheets("Charts").Range(ChartStart, ChartEnd).Offset(i * Row2, 0).Copy 
    Set PPSlide = PPPres.Slides(1) 
    Set PPShape = PPSlide.Shapes.Paste 
    PPShape.Name = "Table" & i

但此後被告知修復2010年的版本是使用.PasteSpecial所以我有：

'Copying Tables to PowerPoint 
Set PPApp = GetObject(, "Powerpoint.Application") 
Set PPPres = PPApp.ActivePresentation 
PPApp.ActiveWindow.ViewType = ppViewSlide 

For i = 0 To Table3 
    Sheets("Charts").Range(ChartStart, ChartEnd).Offset(i * Row2, 0).Copy 
    Set PPSlide = PPPres.Slides(1) 
    Set PPShape = PPSlide.Shapes.PasteSpecial(dataType:=10) 
    PPShape.Name = "Table" & i

事情是使用數據類型：= 10手看跌圖表轉換成PowerPoint格式不正確，適合我的目的。我需要使用ppPasteHTML將表格作爲表格使用ppPasteHTML，但是，當我嘗試將此輸入到PasteSpecial函數時，我收到一條錯誤代碼，指出剪貼板是空的。

有誰知道「ppPasteHTML」有一個數字相當於在PasteSpecial的數據類型的選擇嗎？還是另一種方式來獲得一個Excel表格到PowerPoint作爲辦公室表2010？

謝謝！

來源

2014-08-28 wherethemildthingsr

可能出現[在Excel 2010中Excel複製表格從Excel複製到PowerPoint中，但不是Excel 2013？]（http：// stackoverflow。問題/ 25556397 /麻煩複製表從excel到powerpoint-with-vba-in-excel-2010-but-not-ex） – 2014-08-29 00:03:27

你真的**不應該問同樣的問題一天兩次... – 2014-08-29 00:03:42

我已經關閉了另一個，因爲它沒有任何答案。你繼續這一個 – 2014-08-29 04:36:13

這應該這樣做：

只要確保你正在加載的PowerPoint演示庫在Excel

工具 - >引用 - > 「Microsoft PowerPoint中nn.n對象庫」

另外我假定Table3，ChartStart，ChartEndRow2 &有設置值

Dim pptApp As PowerPoint.Application 
Dim pptPres As PowerPoint.Presentation 
Dim pptSlide As PowerPoint.Slide 

'Open PowerPoint and create a new presentation. 
Set pptApp = New PowerPoint.Application 
Set pptPres = pptApp.Presentations.Add 

Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank) 

For i = 0 To Table3 
Set objRange = Worksheets("Charts").Range(ChartStart, ChartEnd).Offset(i * Row2, 0) 
objRange.Copy 
pptSlide.Shapes.PasteSpecial DataType:=ppPasteHTML, Link:=msoFalse 
Next i 

For j = 1 To pptSlide.Shapes.Count 
    With pptSlide.Shapes(j) 
    .Name = "Table" & j 
    End With 
Next j 

Set pptSlide = Nothing 
Set pptPres = Nothing 
Set pptApp = Nothing

來源

2014-08-28 23:15:24 CaptainABC

長/數字等效ppPasteHtml是8。您可以通過在PowerPoint中打開VBE，在立即窗口中執行?ppPasteHTML，或在模塊/例程中執行Debug.Print ppPasteHtml來查詢。

使用早期綁定，請嘗試：

pptSlide.Shapes.PasteSpecialy DataType:=ppPasteHtml

或者，使用後期綁定：

pptSlide.Shapes.PasteSpecial DataType:=8

另外，我已經看到了一些other q's where people have problems pasting from one application to another application（例如，從Excel到PowerPoint等），在這些情況下，似乎有時唯一的解決方法是使用CommandBars對象，但我不確定是否存在CommandBars的「HTML」粘貼方法。

pptSlide.Parent.ExecuteMso "PasteExcelTableSourceFormatting"

這裏有一些其他可能的MSO命令，你可以使用，但就像我說我沒有看到一個看起來粘貼HTML，雖然這份名單是Office 2010：

enter image description here

來源

2014-08-29 00:11:03

將Excel表格複製到PowerPoint中的最佳方法（2010）？

回答

相關問題