Discussion :

[ovier]

Bonjour,
Logiciel: PowerPoint 2007

J'aimerai savoir si il existe un code permettant de mettre en forme une image.
Le but serai de créer un bouton qui servirai à mettre en forme l'image sélectionnée.
La mise en forme en question comporte une ombre, un contour en pointillé et couleurs.

ovier

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Voici un exemple de code, dans la slide 1, j'ai mis une image que j'ai nommé objImg (pour nommer un objet sur PPT 2007, c'est dans la )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
    Dim objImg As Shape
 
    Set objImg = ActivePresentation.Slides(1).Shapes("imgTest")
    With objImg
        .Line.DashStyle = msoLineDash               ' pointillés
        .Line.Weight = 5                            ' épaisseur de ligne
        .Line.ForeColor.RGB = RGB(255, 200, 200)    ' donne une couleur rosée au trait
        .Shadow.ForeColor.RGB = RGB(100, 100, 100)  ' couleur de l'ombre
        .Shadow.OffsetX = 10                        ' décalage
        .Shadow.Visible = msoTrue                   ' rendrevisible l'ombre
    End With
End Sub

Pour voir toutes les autres propriétés, je t'invite à utiliser l'explorateur d'objets (F2) dans l'éditeur VB.

A toit d'adapter

Philippe

[ovier]

Merci pour votre réponse, cela fonctionne en nommant l'image "imgTest" à la place de objImg.
J'ai une autre question, peut-être mériterait-elle un autre sujet, je la pose ici tout de même.

A la place d'utiliser un nom d'image, et un numéro de slide, peut-on appliquer la macro, sur la slide active, et l'image sélectionnée?

ovier

[Invité]

Bonjour

C'est tout à fait possible, il faut un peut transformer la routine, avec cet exemple :

Code :

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

1
2
3
Public Sub test(shpSelect As Shape)
    MsgBox shpSelect.Name
End Sub

en paramètre de la sub, il prend la Shape sélectionnée, pour cela il faut mettre le code sur (dans les actions) le click, sélectionner la routine.

Il faut donc enlever la déclaration de la shape dans le premier code que je t'ai donné.

Philippe