Classe Rectangle (Word VBA)
A classe Rectangle representa uma parte de texto ou um elemento gráfico em uma página. Use o objeto Rectangle e relacionados métodos e propriedades para definir programaticamente o layout de página em um documento. Para usar uma variável de classe Rectangle, ela primeiro precisa ser instanciada por exemplo
For Each
Aqui está um exemplo de processamento dos itens Rectangle em uma coleção.
Dim lin As Line: Set lin =
Dim shp As Rectangle
For Each shp In lin.Rectangles
With shp
End With
Next shp
Height
Retorna um Long que representa a altura de um retângulo, em pixels.
Dim shp As Rectangle: Set shp =
Dim lngHeight As Long
lngHeight = shp.Height
Left
Retorna um Long que representa o número de pixels da borda esquerda da página até a borda esquerda de um retângulo.
Dim shp As Rectangle: Set shp =
Dim lngLeft As Long
lngLeft = shp.Left
Lines
Retorna uma coleção Lines que representa as linhas em uma parte especificada de texto em uma página.
Use a coleção Lines e objetos relacionados e propriedades para definir de forma programada o layout de página em um documento.
Dim objRectangle As Rectangle
Dim objLines As Lines
Set objRectangle = ActiveDocument.ActiveWindow _
.Panes(1).Pages(1).Rectangles(1)
If objRectangle.RectangleType = wdTextRectangle Then _
Set objLines = objRectangle.Lines
Range
Retorna um objeto Range que representa a parte de um documento que está contida em um retângulo.
Dim shp As Rectangle: Set shp =
Dim rngRange As Range
Set rngRange = shp.Range
RectangleType
Retorna uma constante WdRectangleType que representa o tipo do retângulo especificado. Aqui você pode encontrar os valores possíveis para
Retângulos no Microsoft Word são seções dentro de uma página em um documento que contêm tipos específicos de informações. Algumas seções são partes de texto; outros são formas. O objetivo dos retângulos é permitir mais controle sobre o layout de página através de programação.
Dim objRectangle As Rectangle
Set objRectangle = ActiveDocument.ActiveWindow _
.Panes(1).Pages(1).Rectangles(1)
If objRectangle.RectangleType = wdTextRectangle Then
objRectangle.Range.CheckSpelling
End If
Top
Retorna um Long que representa o número de pixels da parte superior da página até a parte superior de um retângulo.
Dim shp As Rectangle: Set shp =
Dim lngTop As Long
lngTop = shp.Top
Width
Retorna ou define um valor Long que representa a largura, em pontos, de um retângulo. Long de leitura/gravação.
Dim shp As Rectangle: Set shp =
Dim lngWidth As Long
lngWidth = shp.Width