1

パワーポイントvbaを使用してExcelからパワーポイントに貼り付けた画像のサイズを変更しようとしています。

私のコードは言う：

ActivePresentation.Slides(9).Select Application.ActiveWindow.View.PasteSpecial DataType:=ppPasteEnhancedMetafile

この部分は正常に機能します。次の手順で画像のサイズを変更する方法がわかりません。私はパワーポイントvbaを使うのは初めてです。

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

4

1 に答える 1

5

  • 絶対に必要な場合を除いて、何も選択しないでください。必要になることはめったにありません。代わりに、形状への参照を取得してください。

  • スライド上の図形を操作するために、実際にスライドを表示する必要はありません。

  • 図形の.Top、.Left、.Height、および.Widthプロパティを使用して、図形の位置とサイズを設定します

例：

Dim oSh As Shape

Set oSh = ActivePresentation.Slides(9).Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)
' .PasteSpecial returns a ShapeRange; the (1) at the end of the line above
' returns the first shape in the range. W/o that, you get a type mismatch error
' from trying to assign a range to a shape

With oSh
   ' Set position:
  .Left = 0
  .Top = 0
   ' Set size:
  .Height = 100
  .Width = 200
End With
于 2012-11-01T14:00:00.903 に答える