Classe Walls - paredes (Word VBA)
A classe Walls representa as paredes de um gráfico 3D. Para usar uma variável de classe Walls, ela primeiro precisa ser instanciada por exemplo
Dim wlls as Walls
Set wlls = ActiveDocument.Background.Chart.BackWall
ClearFormats
Limpa a formatação do objeto.
ActiveDocument.Background.Chart.BackWall.ClearFormats
Format
Retorna a linha, preenchimento e efeito da formatação do objeto. Somente leitura ChartFormat.
Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.BackWall.Format
Name
Retorna o nome do objeto. Cadeia de caracteressomente leitura.
Dim strName As String
strName = ActiveDocument.Background.Chart.BackWall.Name
Paste
Cola uma imagem da Área de Transferência nas paredes do gráfico especificado.
Você pode utilizar este método em gráficos de colunas, barras, linhas ou radar.
ActiveDocument.Background.Chart.BackWall.Paste
PictureType
Retorna ou define um valor que especifica como as imagens são exibidas nas paredes e faces de um gráfico 3D. de leitura/gravação. Os valores de retorno possíveis são xlStack - A imagem é dimensionada para repetir no máximo 15 vezes na maior barra empilhada, xlStackScale - A imagem é dimensionada para um número de unidades especificado e repetida no comprimento da barra, xlStretch - A imagem é ampliada no comprimento total da barra empilhada.
Você pode definir essa propriedade como uma das seguintes constantes XlChartPictureType: xlStack ou xlStretch.
ActiveDocument.Background.Chart.BackWall.PictureType = xlStack
PictureUnit
Retorna ou define a unidade de cada figura no gráfico se a propriedade PictureType estiver definida como xlStackScale; Caso contrário, essa propriedade será ignorada. Long de leitura/gravação.
ActiveDocument.Background.Chart.BackWall.PictureUnit =
Select
Seleciona o objeto.
ActiveDocument.Background.Chart.BackWall.Select
Thickness
Retorna ou define a espessura da parede. Long de leitura/gravação.
Use essa propriedade para definir a espessura das paredes de um gráfico. O valor padrão é zero (0).
ActiveDocument.Background.Chart.BackWall.Thickness =