Series.PictureUnit2 (Word)

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. Double de leitura/gravação.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.SeriesCollection(1) 
 .PictureType = xlScale 
 .PictureUnit2 = 5 
 End With 
 End If 
End With