[已解决]求一段程序的修改

hamsik11

如附件所示，我想生成如原图所示的形状具有一定的立体效果，我知道在excel里面点右键 在“三维旋转“里修改，但在程序里我不知道怎么写？希望各位高手可以指点一下 不胜感激 谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2012-6-21 08:41

作饼图.rar (15.07 KB, 下载次数: 3)

2012-6-21 08:41 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

录制一个不就行啦：

zjdh

我录制的：
Sub test()
    Charts.Add
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.SetSourceData Source:=Sheets("chart").Range("B1:B7")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="chart"
    With ActiveChart
        .Elevation = 45
        .Perspective = 30
        .Rotation = 0
        .RightAngleAxes = False
        .HeightPercent = 100
        .PlotArea.Border.Weight = xlThin
        .PlotArea.Border.LineStyle = 0
         ActiveWindow.Visible = False
    End With
    ActiveChart.HasLegend = False
    With Selection.Border
        .Weight = 2
        .LineStyle = 0
    End With
    Selection.Interior.ColorIndex = xlNone
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.PlotArea.Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlNone
    End With
    Selection.Interior.ColorIndex = xlNone
    ActiveWindow.Visible = False
    Range("K27").Select
End Sub

zjdh

作饼图.rar (15.07 KB, 下载次数: 3)

2012-6-21 08:41 上传

点击文件名下载附件

hamsik11

zjdh 发表于 2012-6-21 08:41

多谢多谢 奇怪了 我录出来是shapes("")什么什么的/....