April 2006
Beginner
1114 pages
98h 16m
English
shape.ThreeD
For autoshapes, returns a ThreeDFormat object used to add a 3-D effect to the shape. The following code draws a wave as a wire-frame 3-D figure:
Sub DrawThreeD( )
Dim ws As Worksheet, s As Shape
Set ws = ActiveSheet
' Draw a shape
Set s = ws.Shapes.AddShape(msoShapeDoubleWave, 50, 50, 40, 40)
' Add 3-D effect.
s.ThreeD.PresetMaterial = msoMaterialWireFrame
End SubRead now
Unlock full access