Bouton sur USF qui montre une image

tomy7 · 17/04/2008, 15h34

Rebonjour ...

Desole j ai en effet poste au mauvaise endroit...

Est il possible lorsque l on clique sur un bouton situe sur un USF de faire apparaitre une Image ou capture d ecran?

Merci
Tom

Philippe JOCHMANS · 17/04/2008, 15h37

Re

Oui c'est possible

Il faut ajouter une image grâce à la méthode Add de l'objet Shape.

Un exemple ci-dessous avec

Une image : U:\copie.jpg
Une position à gauche en reprenant la propriété Left de ton bouton de commande - 100 (attention, les unités sont des points)
Et ainsi de suite pour les autres positions.

un coup de

pour les autres paramètres.

Code :

Private Sub CommandButton1_Click()
    ActivePresentation.Slides(1).Shapes.AddPicture "u:\copie.jpg", msoTrue, msoTrue, Me.CommandButton1.Left - 100, Me.CommandButton1.Top
End Sub

Starec

tomy7 · 17/04/2008, 15h46

ok impecable...

merci Starec

17/04/2008, 15h34	#1 (permalink)
tomy7 Membre expérimenté Date d'inscription: janvier 2008 Localisation: France\Belgique Âge: 22 Messages: 554	Bouton sur USF qui montre une image Rebonjour ... Desole j ai en effet poste au mauvaise endroit... Est il possible lorsque l on clique sur un bouton situe sur un USF de faire apparaitre une Image ou capture d ecran? Merci Tom __________________ tom "Barbar : The rest of the warrior" Into the wild....

17/04/2008, 15h37	#2 (permalink)
Philippe JOCHMANS Responsable PowerPoint Date d'inscription: mai 2005 Localisation: Loir et Cher et Touraine Âge: 40 Messages: 9 964	Re Oui c'est possible Il faut ajouter une image grâce à la méthode Add de l'objet Shape. Un exemple ci-dessous avec Une image : U:\copie.jpg Une position à gauche en reprenant la propriété Left de ton bouton de commande - 100 (attention, les unités sont des points) Et ainsi de suite pour les autres positions. un coup de pour les autres paramètres. Code : Private Sub CommandButton1_Click() ActivePresentation.Slides(1).Shapes.AddPicture "u:\copie.jpg", msoTrue, msoTrue, Me.CommandButton1.Left - 100, Me.CommandButton1.Top End Sub Starec __________________ En cas de questions techniques par MP ou message visiteur Office : :Les Cours, Les FAQs VB : Les Cours, Les FAQs Mes articles : ici Me connaitre

17/04/2008, 15h46	#3 (permalink)
tomy7 Membre expérimenté Date d'inscription: janvier 2008 Localisation: France\Belgique Âge: 22 Messages: 554	ok impecable... merci Starec __________________ tom "Barbar : The rest of the warrior" Into the wild....

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Powerpoint > VBA PowerPoint
Bouton sur USF qui montre une image

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email