Discussion :

[kuchiky]

Bonjour,

N'étant pas vraiment spécialiste du vba sur powerpoint, je voulais savoir comment je pourrais changer la taille d'un label que je viens de creér.

Voici la partie de mon code qui marche correctement:

Code :

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

1
2
3
4
5
6
7
 With PresPpt 'PresPpt est une présentation PPT déclarer avant
 
    .Slides(1).Shapes.AddLabel(msoTextOrientationHorizontal, _
    Left:=220, Top:=260, Width:=300, Height:=150).TextFrame _
    .TextRange.Text = "test texte"
    'Comment faire pour récupérer le shape en question?    
End With

J'en suis sûre que c'est tout bête mais bon...

Merci

[clementmarcotte]

Bonjour,

Chaque diapositive a sa propre collection (Shapes) interne d'objets Shape.

En principe, en bouclant sur cette collection et en vérifiant les (bonnes) propriétés, tu devrais pouvoir retrouver ta forme.

Si j'ai du temps, plus tard ce soir, (cette nuit en France), je vais y jeter un autre coup d'œil.

Sinon tu peux jeter un œil dans la rubrique : Shape, objet de l'aide de VBA Powerpoint. Il y a quelques exemples qui pourraient aider.

[kuchiky]

Je te remercie pour ton aide,
j'ai fait ressortir le numéro de la dernière Shape:

Code :

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

MsgBox PresPpt.Slides(1).Shapes.Count

Puis après ce fût un jeu d'enfant afin de pouvoir changer le Font