☰

Como aplicar um tamanho geral a imagens no Microsoft Word 2007

tag-icon • tag-icon microsoft-word images microsoft-word-2007
Como aplicar um tamanho geral a imagens no Microsoft Word 2007

É possível aplicar um tamanho específico a todas as imagens de um Microsoft Word 2007, durante a edição. Se sim, como isso pode ser feito? Obrigado

Responder1

Aqui está esta macro incrível tirada destefonte. Eu o incluí aqui caso o link referenciado expire. Basicamente, você precisa atribuir um atalho e salvar esta macro e, em seguida, selecionartodosimagens no documento (acessando Estilos e escolhendo o estilo de imagem atribuído que você possui).

Sub AllPictSize()
    Dim PecentSize As Integer
    Dim oIshp As InlineShape
    Dim oshp As Shape

    PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .ScaleHeight = PercentSize
            .ScaleWidth = PercentSize
        End With
    Next oIshp

    For Each oshp In ActiveDocument.Shapes
        With oshp
            .ScaleHeight Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
            .ScaleWidth Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
        End With
    Next oshp
End Sub

Execute a macro nas imagens selecionadas e especifique uma porcentagem dea maior imagementre a imagem selecionada. O valor padrão é 75%, o que significa que TODAS as imagens serão redimensionadas para 75% da maior das imagens.

OBSERVAÇÃO: todos os itens selecionados devem ser imagens para que esta macro funcione, pois o Word pode realizar operações de redimensionamento apenas em objetos de imagem. Se as imagens não forem redimensionadas corretamente, verifique seus estilos e torne todas as imagens consistentes com seu estilo único.

informação relacionada