Macro PPt2003 ne marchant pas en PPT2013

Bonjour
J'ai créé la macro suivant sur une version ppt2003 pour encadrer une image et la déplacer:

Code:

---

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

---

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?

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

hello,
c'est bizarre je n'ai pas l'erreur avec powerpoint 2010. Ton code a l'air de fonctionner (avec image dans une diapo) . Pour la conversion de cm en points tu peux essayer la fonction :

Code:

---

1 2 3

Function cm2Points(inVal As Single) cm2Points = inVal * 28.346 End Function

---

Ce que je ne comprends pas c'est ton top et ton left ils sont dans quelles unités ? parce que 83 cm ça fait quand même long ?

Ami calmant, J.P

Bonjour,

Ton code ne génère pas d'erreur chez-moi non plus. (PPT2016)

Ceci dit, si je me fie à cette page, ce ne sont pas des centimètres, mais des points.

Bonjour et merci pour vos réponses!
Concernant ma macro peut être ne génère-elle d'erreurs qu'avec PPT2013?
Quoiqu'il en soit mon but est :

1/ créer un cadre blanc autour de la photo sélectionnée, partie qui ne marche définitivement pas chez moi.
Est ce qu'il y aurait une autre façon de l'écrire?


2/ de déplacer ma photo à une position donnée. Je sais je n'ai pas été très claire:
En vba la position est donnée en point alors qu'elle est donnée en cm sous ppt. Le tout par rapport à la position du coin supérieur gauche de la photo. (Top=83 points correspond donc 2.93 cm entre coin supérieur gauche de la photo et le haut du ppt)
Merci à Jurassic pork pour sa fonction qui marche très bien sur ce point !