Macro pour dimensionner des zones de texte

[MJ13]

Bonjour à tous

Je prépare un diaporama avec de nombreuses zones de texte.

Mais je voudrais harmoniser les tailles et je cherche une macro pour les mettre toutes de la même taille sur une diapositive (je pourrais rentrer les tailles dans la macro).

Auriez vous cela en magasin

Merci d'avance.

 

[Modeste]

Re : Macro pour dimensionner des zones de texte

Bonjour Michel

Je ne sais pas si je t'ai bien compris, mais ce qui suit conviendrait-il (comme base)?

Sub tailles()
Dim sh As Shape
With ActivePresentation.Slides(1)
    For Each sh In .Shapes
        If sh.Type = msoTextBox Then
            sh.Height = 40
            sh.Width = 200
        End If
    Next sh
End With
End Sub

Ceci dit, si c'est ce genre de choses que tu veux, tu pourrais également faire un Ctrl+A dans la dia et fixer les hauteurs et largeurs

 

[MJ13]

Re : Macro pour dimensionner des zones de texte

Bonjour Modeste

Merci beaucoup, c'est tout à fait cela, mais je vais faire mon ch..t, comme Henry n'est pas présent sur Powerpoint, sais-tu, si à la place de Slides(1), je veux la diapo en cours (dans l'aide, j'ai pas trouvé)

Et sinon pour avoir le nombres de slide, c'est bon j'ai fait ce code et cela fonctionne .

Sub Powerpoint_NB_Diapos()
MsgBox ActivePresentation.Slides.Count
End Sub

Encore merci, j'avance, j'avance .

 

[MJ13]

Re : Macro pour dimensionner des zones de texte

Re

Ne cherchez plus, pour le numéro de la diapo en cours, j'ai trouvé ceci :

MsgBox ActiveWindow.Selection.SlideRange.SlideIndex

 

[Modeste]

Re : Macro pour dimensionner des zones de texte

re,

Il semble que tu puisses remplacer

ActivePresentation.Slides(1)

... Par

ActiveWindow.View.Slide

Trouvé dans l'aide:

Utilisez la propriété Slide pour renvoyer la diapositive affichée actuellement dans la fenêtre de document ou de diaporama spécifiée.

PS: Vous êtes gentils, vous les jeunes, avec votre langage "branché" ... ça fait 3 fois que je trouve une référence à Henry (je viens seulement de me souvenir avoir lu un message de kjin qui évoquait Henry Gister de McRow ... ou quelque chose du genre!)

 

[MJ13]

Re : Macro pour dimensionner des zones de texte

Re Modeste

ActiveWindow.View.Slide

Ah merci c'est bien aussi. J'avais trouvé autre chose pour le numéro (j'ai posté en même temps que toi).

Encore merci et bonne journée .

Si j'ai un autre problème, je sonne ici, cela pourra toujours me servir ou a quelqu'un d'autre

PS: Pour Henry, j'aurai vu Henry Gistrair of Macrow