MS Word: Centro alinha apenas imagem em uma lista

Question

Eu fiz uma lista numerada no Word 2010. Cada entrada da lista também tem uma imagem. Eu quero centralizar alinhar todas as imagens, mas quando eu tento centralizar alinhar uma imagem, o texto acima se centraliza também.

Como posso centralizar as imagens de alinhamento na lista sem centralizar o texto acima e abaixo.

    

Answer 1

Ok, aqui está o que você faz:

1. Clique com o botão direito na imagem e selecione "Tamanho & Posição ... '
2. Selecione a guia "Quebra automática de texto"
3. Selecione "Top & Parte inferior '
4. Selecione a guia "Posição"
5. Na seção "Horizontal", selecione "Alinhamento" e, em seguida, selecione "Centralizado" em relação a "Coluna"

Infelizmente, fazer isso para várias imagens é problemático. Pintor de formato não funcionará. Além disso, simplesmente usar o gravador de macro causa problemas ao tentar selecionar a imagem.

Portanto, criar uma macro VBA e vinculá-la a uma chave parece ser o único caminho a seguir para torná-la supereficiente. Aqui estão dois posts úteis a esse respeito:

• link
• link

A partir da primeira dessas referências, testei a macro VBA a seguir. Parece funcionar bem!

Sub FormatMyPicture()  
   Dim myShape As Shape

   If Selection.InlineShapes.Count > 0 Then
       Set myShape = Selection.InlineShapes(1).ConvertToShape
   ElseIf Selection.ShapeRange.Count > 0 Then
       Set myShape = Selection.ShapeRange(1)
   Else
       MsgBox "Please select a picture first."
       Exit Sub
   End If

   With myShape
       .WrapFormat.Type = wdWrapTopBottom
       .WrapFormat.DistanceTop = InchesToPoints(0.2)
       .WrapFormat.DistanceBottom = InchesToPoints(0.2)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
       .Left = wdShapeCenter
   End With
End Sub

    

Answer 2

Para alinhar o centro de todas as imagens em linha no MS Word:

Passo 1 : Pressione Alt + F11 para abrir o Editor VBA

Etapa 2 : vá para Insert e, em seguida, Module

Etapa 3 : no editor do VBA, digite o seguinte snippet de código

Sub centerPictures()
  Dim shpIn As InlineShape, shp As Shape
  For Each shpIn In ActiveDocument.InlineShapes
    shpIn.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shpIn
  For Each shp In ActiveDocument.Shapes
    shp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shp
End Sub

Passo 4: Pressione F5 ou pressione Run Sub para aplicar esta alteração

    

Answer 3

Espero que isso ajude alguém especial

Sub rezize_center_newline()

Dim i As Long
Dim shpIn As InlineShape, shp As Shape

With ActiveDocument
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
            .Height = InchesToPoints(4)
            .Width = InchesToPoints(5.32)
            .Range.InsertAfter Chr(13)
        End With
    Next i
    For Each shpIn In ActiveDocument.InlineShapes
        shpIn.Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next shpIn
    For Each shp In ActiveDocument.Shapes
        shp.Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next shp
End With
End Sub