Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Changing the Bevel and 3-D Format

Sub AssignBevel()     Dim myChart As Chart     Dim ser As Series     Set myChart = ActiveChart     Set ser = myChart.SeriesCollection(1)     ser.Format.ThreeD.Visible = True     ser.Format.ThreeD.BevelTopType = msoBevelCircle     ser.Format.ThreeD.BevelTopInset = 16     ser.Format.ThreeD.BevelTopDepth = 6 End Sub