1

私は現在、エクセルで生成されたチャートを含むパワーポイントを持っています。

私がする必要があるのは、いくつかのアニメーションを行うために、グラフ (または Excel は関係ありません) の値を取得することです。

問題は、コードを機能させることができないように見えることです。

これを行う簡単な方法があれば、それを聞いてうれしいです!

これが私のコードです：

Sub moveRectangle()
Dim pptChart As Chart
Dim pptcd As ChartData
Dim xlWorkbook As Object
Dim PPPres As Presentation
Dim pptShape2 As Shape
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim sld As Slide
Dim shp As Shape
Dim PPApp As PowerPoint.Application
 'Look for existing instance
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0
 'Create new instance if no instance exists
Set PPApp = CreateObject("Powerpoint.Application")
Set PPPres = PPApp.ActivePresentation
Set pptShape = PPPres.Slides(1).Shapes("Rectangle 16")
Set pptShape2 = PPPres.Slides(1).Shapes("Chart 3")
Set pptChart = pptShape2.Chart
Set pptcd = pptChart.ChartData
MsgBox (pptShape2.Name)
Set wb = pptcd.Workbook
Set ws = wb.Worksheets(1)
pptShape.Left = pptShape.Left - 40
End Sub

問題は、次のエラーが発生することです。

Method 'Workbook' of Object 'ChartData' failed

どんな助けでも大歓迎です！

4

1 に答える 1

0

Excelを「アクティブ化」せずに機能させるには（フルスクリーンモードがあり、かなり面倒です）、追加する必要があります

With pptChart.ChartData
...
End With

これにより、「Excel をアクティブ化」しなくても同じ機能を利用できます。

于 2013-10-28T03:23:58.977 に答える