Discussion :

[MBL076]

Bonjour à tous,

Je cherche un moyen de dimensionner automatiquement des cercles fonction du texte qui est dedans.

Par exemple un cercle qui aurai comme texte 100% aurai une taille de 5/5 et un avec 50% 2.5/2.5

Merci par avance pour votre aide.

[Invité]

Bonjour

Je n'ai pas la réponse par rapport à la taille du texte (en pourcentage).

Cependant, on peut ajuster la forme au texte.

Le code suivant permet d'ajuster toutes les formes de la première diapo au texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub Recadrage()
    Dim objSld As Slide
    Dim objShp As Shape
 
    Set objSld = ActivePresentation.Slides(1)
    For Each objShp In objSld.Shapes
        With objShp
            .TextFrame.AutoSize = ppAutoSizeShapeToFitText
        End With
    Next objShp
End Sub

Philippe