OVH Cloud OVH Cloud

Chemin d'une macro complémentaire

1 réponse
Avatar
Norvi
Bonjour,

J'utilise une petite macro compl=E9mentaire de mon cru, qui combin=E9 =E0
un bouton me permet d'inserrer une image sp=E9cifiques sur toutes les
diapos.
J'utilise pour l'instant un chemin pr=E9cis=E9 vers l'image, mais
j'aimerais pouvoir automatiquement selectionner le m=EAme chemin que
l'endroit ou est enregistrer ma macro complementaire. Quel code
utiliser ?

Exemple :
sl.Shapes.AddPicture(FileName:=3D"D:\Mes
documents\Config\Powerpoint\image.jpg", LinkToFile:=3DmsoFalse,
SaveWithDocument:=3DmsoTrue, Left:=3D0, Top:=3D0).Name =3D "IMG"

Je voudrais donc pouvoir remplacer automatiquement D:\Mes
documents\Config\Powerpoint\ par le chemin de la macro complementaire.

Merci de votre aide.

N=2E

1 réponse

Avatar
David
Bonjour,

Pour avoir le chemin vers le fichier powerpoint il faut que tu utilise
l'objet Curdir, il permet de récupérer le répertoire courant :
donc ton nouveau code sera :
sl.Shapes.AddPicture(FileName:=Curdir + "image.jpg", LinkToFile:=msoFalse,
SaveWithDocument:=msoTrue, Left:=0, Top:=0).Name = "IMG"

Voila, tout simplement

David

"Norvi" wrote in message
news:
Bonjour,

J'utilise une petite macro complémentaire de mon cru, qui combiné à
un bouton me permet d'inserrer une image spécifiques sur toutes les
diapos.
J'utilise pour l'instant un chemin précisé vers l'image, mais
j'aimerais pouvoir automatiquement selectionner le même chemin que
l'endroit ou est enregistrer ma macro complementaire. Quel code
utiliser ?

Exemple :
sl.Shapes.AddPicture(FileName:="D:Mes
documentsConfigPowerpointimage.jpg", LinkToFile:=msoFalse,
SaveWithDocument:=msoTrue, Left:=0, Top:=0).Name = "IMG"

Je voudrais donc pouvoir remplacer automatiquement D:Mes
documentsConfigPowerpoint par le chemin de la macro complementaire.

Merci de votre aide.

N.