Bonjour
J'ai créé la macro suivant sur une version ppt2003 pour encadrer une image et la déplacer:
Cette macro renvoie une erreur en ppt 2013 (la méthode SchemeColor de l'objet ColorFormat a échoué et la methode Transparency de l'objet FillFormat a échoué). Comment résoudre ces problèmes?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub HautGauche6() With ActiveWindow.Selection.ShapeRange .Line.ForeColor.SchemeColor = ppForeground .Line.Visible = msoTrue End With With ActiveWindow.Selection.ShapeRange .Fill.Transparency = 0# .Left = 6.75 .Top = 83# End With End Sub
Autre question: La position d'une image étant donnée en cm par rapport au coin supérieur gauche horizontal et vertical, comment traduire cette position sous vba?
Merci d'avance pour votre aide!
Viviane
Partager