Macro pour dimensionner des zones de texte

Modeste

XLDnaute Barbatruc

• 18 Février 2011

• #2

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)?

VB:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Février 2011

• #3

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 .

Code:

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

Encore merci, j'avance, j'avance .

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Février 2011

• #4

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 :

Code:

MsgBox ActiveWindow.Selection.SlideRange.SlideIndex

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 18 Février 2011

• #5

Re : Macro pour dimensionner des zones de texte

re,

Il semble que tu puisses remplacer

Code:

ActivePresentation.Slides(1)

... Par

Code:

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.

Cliquez pour agrandir...

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!)

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Février 2011

• #6

Re : Macro pour dimensionner des zones de texte

Re Modeste

Code:

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

 

Vote positif 0 Vote négatif