Le redimensionnement de l'image à l'aide de Powerpoint vba

Je suis en train de redimensionner une image que j'ai collé dans powerpoint à partir d'Excel à l'aide de powerpoint vba.

Mon code dit:

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

Cette partie fonctionne très bien, je suis à une perte comment puis redimensionner l'image à l'étape suivante. Je suis nouveau à l'aide de powerpoint vba.

Toute aide serait grandement appréciée.

InformationsquelleAutor amymon87 | 2012-11-01
  1. 6

    • Jamais de sélectionner quoi que ce soit, sauf si vous devez absolument, et vous avez très rarement doivent.. Obtenir une référence à la forme de la place.

    • Vous n'avez pas à être l'affichage d'une diapositive à manipuler les formes SUR la diapositive

    • Utilisation de la forme .Haut, .À gauche, .La hauteur et la .Largeur de propriétés pour définir sa position et sa taille

    Exemple:

    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
    InformationsquelleAutor Steve Rindsberg