作者：绿色风
分类：
时间：2022-08-17
浏览：80
楼主
biaotiger1 |
Q：如何用VBA设置绘图区阴影颜色及半径大小？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下- Sub 设置绘图区阴影()
- With Sheets("sheet1").Shapes.AddChart(xlLineMarkers, 0, 0, 300, 300).Chart '在（0，0）坐标处插入折线图
- .SetSourceData Source:=Range("Sheet1!$A$1:$A$10") '设置数据源
- .SetElement msoElementLegendNone '不显示图例项
- .SetElement msoElementPrimaryCategoryAxisNone
- .SetElement msoElementPrimaryValueAxisNone
- ' .Axes(xlCategory).Delete '不显示分类轴
- ' .Axes(xlValue).Delete '不显示数值轴
- With .PlotArea
- .Width = 150 '设置绘图区大小及位置
- .Height = 150
- .Left = 50
- .Top = 50
- With .Format.Glow '设置阴影
- For I = 1 To 100
- .Color.RGB = RGB(Rnd() * 256, Rnd() * 256, Rnd() * 256) '填充随机颜色
- .Radius = Rnd() * 100 '随机半径
- DoEvents '使颜色与半径变化显示出来
- Next
- End With
- End With
- End With
- End Sub
运行以上代码，则在sheet1工作表插入一个以A1:A10为数据源的折线图。并且绘图区的阴影及半径大小会变化。
详见附件。
 绘图区阴影.rar
|
2楼
亡者天下 |
几何应用，不错
学习一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一