1

のスライドに貼り付けるコードがいくつかあります。に貼り付けると 、チャートのサイズを変更する方法がわかりません。それがどの数字の「形」であるかを調べましたが、これを手動で行うことができますが、これを自動化する方法がわかりません。どんな助けでも大歓迎です、ありがとう！

これが私のコードです：

Sub AddChartToPPT(PPT As PowerPoint.Application, Slide As Integer, Chart As String, FromTop As Double, FromLeft As Double, Length As Double, Width As Double)
Dim activeslide As PowerPoint.Slide
PPT.ActiveWindow.View.GotoSlide Slide
Set activeslide = PPT.ActivePresentation.Slides(Slide)
ActiveSheet.ChartObjects(Chart).Activate
ActiveChart.ChartArea.Copy
activeslide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
PPT.ActiveWindow.Selection.ShapeRange.Left = FromLeft
PPT.ActiveWindow.Selection.ShapeRange.Top = FromTop
'Need to add scaling code
End Sub
4

2 に答える 2

2

これを試して：

dim shp as Object
set shp=activeslide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture)
shp.Left = FromLeft
shp.Top = FromTop

あなたのコードの残りの部分で：

Sub AddChartToPPT(PPT As PowerPoint.Application, Slide As Integer, Chart As String, FromTop As Double, FromLeft As Double, Length As Double, Width As Double)
Dim activeslide As PowerPoint.Slide, shp as Object
PPT.ActiveWindow.View.GotoSlide Slide
Set activeslide = PPT.ActivePresentation.Slides(Slide)
ActiveSheet.ChartObjects(Chart).Activate
ActiveChart.ChartArea.Copy
set shp=activeslide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture)
shp.Left = FromLeft
shp.Top = FromTop
'Need to add scaling code     
End Sub
于 2012-10-20T00:23:51.640 に答える
2

私の経験では、グラフ オブジェクトを PowerPoint に貼り付ける前に、Excel でグラフ オブジェクトのサイズを変更する方が簡単です。まず、Excel のオブジェクト モデルはより明確です。第 2 に、メタファイルのサイズを変更すると歪みが発生する可能性がありますが、グラフのサイズを変更して、サイズ変更の必要がないメタファイルとして貼り付けると、歪みは発生しません。

于 2012-10-27T15:11:44.123 に答える