MS Word: centralizar apenas a imagem em uma lista

Question

Fiz uma lista numerada no Word 2010. Cada entrada da lista também possui uma imagem. Quero centralizar todas as imagens, mas quando tento centralizar uma imagem, o texto acima também fica centralizado.

Como posso centralizar as imagens 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 e posição...'
2. Selecione a guia 'Quebra de texto'
3. Selecione 'Superior e Inferior'
4. Selecione a guia 'Posição'
5. Na seção 'Horizontal', selecione 'Alinhamento' e, em seguida, selecione 'Centrado' em relação a 'Coluna'

Infelizmente, fazer isso para várias imagens é problemático. O pintor de formatos não funciona. Além disso, o simples uso do Gravador Macro causa problemas ao tentar selecionar a imagem.

Portanto, criar uma macro VBA e vinculá-la a uma chave parece ser a única maneira de tornar isso supereficiente. Aqui estão duas postagens úteis a esse respeito:

• https://groups.google.com/forum/?fromgroups=#!topic/microsoft.public.word.vba.general/j4ZaBiOYKDU
• https://stackoverflow.com/questions/9809475/insert-resize-and-relocate-image-using-a-microsoft-word-macro

Desde a primeira dessas referências, testei a seguinte macro VBA. 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 centralizar todas as imagens embutidas no MS Word:

Passo 1: Pressione Alt+ F11para abrir o Editor VBA

Passo 2: Vá paraInsertentãoModule

etapa 3: No Editor VBA, digite o seguinte trecho 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

Etapa 4: pressione F5ou pressioneRun Subpara 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