Recherche

Word uniquement

Avec une macro, à condition que ces photos soient insérées sans habillage.

 

Sub centrage_photos()
Dim n As Integer, x As Integer
= Application.ActiveDocument.InlineShapes.Count
    For x = 1 To n
      ActiveDocument.InlineShapes(x).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
If n <> 0 Then MsgBox n & " photos centrées" Else MsgBox "Aucune photo n'a été centrée"
End Sub

Attention ! La précédente macro va centrer tous les objets InlineShape de votre document. Si vous avez différents types d'objets InlineShape dans votre document et que vous ne souhaitez centrer que les photos, ou que les graphiques, ou que les SmartArt, etc., il va falloir le préciser. La macro suivante, par exemple, centrera uniquement tous les graphiques insérés dans le document.

Sub centrage_graphs()
Dim n As Integer, x As Integer, y As Integer, Objet As Object
= Application.ActiveDocument.InlineShapes.Count
    For x = 1 To n
        Set Objet = Application.ActiveDocument.InlineShapes(x)
        If Objet.Type = wdInlineShapeChart Then
            Objet.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            y = y + 1
        End If
    Next
If y <> 0 Then MsgBox y & " graphiques centrés" Else MsgBox "Aucun graphique n'a été centré"
End Sub

 

  

Statistiques

France 77,2% France
Canada 8,4% Canada
États-Unis d'Amérique 4,3% États-Unis d'Amérique

Total:

49

Pays
018269253
Aujourd'hui: 11
Hier: 163
Cette semaine: 564
Semaine dernière: 1.290
Ce mois: 2.050