作者:绿色风
   分类:
   时间:2022-08-17
   浏览:214
      
  | 楼主 wjc2090742
 | Q:如何用vba设置及撤销图表的棱台效果? A:利用format.threed.beveltoptype可以实现菜单中的棱台预设效果。下面是一个实例。
 
 
 
Sub 棱台()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SeriesCollection(1).Format.ThreeD.BevelTopType = msoBevelCross
End Sub
 
 下面的代码可以撤销棱台效果
 
Sub 恢复()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SeriesCollection(1).Format.ThreeD.BevelTopType = msoBevelNone
End Sub
 
 2楼提供了BevelTopType等号右边的值表。其值相当于功能区的“格式——形状效果——棱台”
 见截图。
 
 
   
  如何用vba设置及撤销图表的棱台效果?.zip 
 | 
| 2楼 wjc2090742
 | 提供excel功能区菜单中棱台预设效果对应的vba值。 
 
 
   | 
| 3楼 wnianzhong
 | 学习了,谢谢! | 
| 4楼 donghan
 | 不错,收藏起来 | 
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
      ------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一