Discussion :

[jeff1494]

Bonjour à tous;
Je viens vers vous car j'ai un soucis. J'ai monté une routine VBA depuis Excel pour créer un ppt, qui inclus des images.

Voici le code utilisé pour créer la shape et insérer l'image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Img = .Slides(x).Shapes.AddPicture(Filename:=Cemphoto, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=10)

J'ai forcé l'emplacement de l'image car je ne sais pas comment faire un cadrage au centre du slide.

Tout fonctionne correctement, sauf au niveau du cadrage de l'image dans le slide.

J'aimerais donc comment convertir en VBA l'utilisation des menus suivants :
En sélectionnant la shape (avec un With Img, par exemple dans mon code VBA) contenant mon image, Menu "Outils Image, Format" / "Aligner" / "Centrer".

L'idée est de pouvoir centrer horizontalement l'image dans le milieu du slide.

Désolé, mais je ne maitrise pas encore assez le VBA pour Powerpoint, et l'enregistreur de macro de powerpoint ne me donne aucun code (excepté la première et dernière ligne de la macro).

D'avance un grand merci à vous et bonne journée.

[jeff1494]

Mon problème est résolu.
En fait une simple formule fait l'affaire.

lngSlideWidth = Largeur d'un slide (soit en passant 720 pts)
Img.Width = Largeur de mon image après une remise en forme suivant si elle est horizontale ou Verticale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  .Left = (lngSlideWidth - Img.Width) / 2

Cela pourra peut-être servir à quelqu'un.
Cordialement, A+.