1

以下は、Excel スプレッドシートからグラフを ppt に取り込むために使用する手順です。ただし、画面に貼り付けるのではなく、「オブジェクト」に画像を挿入する方法がわかりません。(つまり、ppLayoutFourObjects を実行し、4 つのグラフをこのスライドに送信した場合、別のグラフを追加する前に、4 つのオブジェクトの選択から表示される指定された各長方形にグラフを貼り付ける方法を知る必要があります)。最初のものは常に四角形 5 のように見えることを知っています。コードを正しく取得できません。助けてください。これはすべて 2003 Office です。

sub xls2ppt()
'I use this to pull charts into ppt from excel   
Dim xlApp As Object
Dim xlWrkBook As Object
Dim lCurrSlide As Long
Set xlApp = CreateObject("Excel.Application")
' Open the Excel workbook
Set xlWrkBook = xlApp.Workbooks.Open("X:\Users\Admin\Desktop\Budget Overview.xls")
' Copy picture of the 1st chart object onto the clipboard
xlWrkBook.Worksheets(2).ChartObjects(1).CopyPicture
' Get the slide number
lCurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber
' Paste the picture onto the PowerPoint slide.
ActivePresentation.Slides(lCurrSlide).Shapes.Paste
' Close the open workbook without saving changes
xlWrkBook.Close (False)
xlApp.Quit
Set xlApp = Nothing
Set xlWrkBook = Nothing
End Sub

助けてくれてありがとう。PowerPoint 用の VBA は私の中で最も苦手なものですが、仕事で使う必要があります。みんなありがとう！

4

1 に答える 1

2

私の知る限り、UI を使用しても、PowerPoint の「オブジェクトに」チャートを貼り付けることはできません。Word では、テキスト ボックスまたは表のセルに貼り付けることができますが、PowerPoint ではできません。

代わりに、貼り付けた 4 つのチャートを適切なサイズと位置になるように配置する必要があります。これは簡単に行うことができます...

Set oSlide = ActivePresentation.Slides(lCurrSlide)
Set oShape = oSlide.Shapes.Paste
oShape.Top = 10
oShape.Left = 10
oShape.Width = 100
oShape.Height = 100
于 2009-06-20T20:32:11.067 に答える