rogner une image (Enhanced Metafile) dans PPT 2007

Question

Quelqu'un peut me aider avec un problème dans PPT 2007.

J'ai une image (un tableau Excel collé comme 'image (Enhanced Metafile)') dans une diapositive . J'ai juste besoin de recadrer cette image pour l'insérer dans la diapositive. J'ai essayé code suivant, mais en vain:

'1:

Avec ActivePresentation.Slides (1) .Shapes (1)

.PictureFormat.CropLeft = 10 

    .PictureFormat.CropTop = 10 

    .PictureFormat.CropRight = 10 

    .PictureFormat.CropBottom = 10 

End With 

'Runtime error "ActiveX Component can't create object 

' 2:

ActiveWindow.Selection.ShapeRange.PictureFormat.CropRight = 10 

ActiveWindow.Selection.ShapeRange.PictureFormat.CropLeft = 10 

ActiveWindow.Selection.ShapeRange.PictureFormat.CropBottom = 10 

ActiveWindow.Selection.ShapeRange.PictureFormat.CropTop = 10 

'Object doesnt support this property or method 

Toute suggestion est la bienvenue.

Answer 1

Cela fonctionne avec les champs électromagnétiques collés à partir d'Excel:

Dim oSh as Shape 
    Set oSh = ActiveWindow.Selection.ShapeRange(1) 
    ' Note: ShapeRange(1), not just ShapeRange 
    ' That's the problem with your second example 

    With oSh 
    .CropLeft = 10 
    ' etc 
    End With 

Le fait qu'il hurle sur un objet activex dans le premier exemple, je me demande si la première forme est vraiment une FEM, qui ne serait pas un ActiveX objet.