MS Word: centralizar apenas a imagem em uma lista

MS Word: centralizar apenas a imagem em uma lista

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.

MS Word 2010 - Lista com imagens

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

Responder1

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:

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

Responder2

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

Responder3

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

informação relacionada