【excel怎么画图圆点】Exce VBA如何画圆，如果学习这个代码，

Vba也可以画画。也不是秘密，你用过吗？

相信不是经常使用Excel的人也对此了解不多。

创建图形不是Excel的强项，但此功能也很有用。

效果图

制作精美的表格需要熟练掌握图形。

下面介绍如何使用代码自动创建圆形效果。

我只扔了砖头，能吸引玉吗，那就看自然吧。

生成随机多圆

大小和颜色也是随机生成的，因此每次单击按钮的效果都不同。

将此功能用于某些软件应用程序可以显着提高应用程序界面的美观度，还可以减少使用相同颜色引起的视觉疲劳。

从整体上看，这个效果还是可以圈起来的。儿童节好像来了吗？当然，您可以画五角星或三角星，也可以根据您的选择画漂亮的画。(大卫亚设)。

你有创意什么都可以做，不是吗？

要点来了

说这么多要切入正题。

先说一下怎么使用代码。

Ws。S(msoShapeOval，x，y，w，h)'绘制圆形分析。

Ws:表对象(工作表对象)

MsoShapeOval:圆形标识符，这是微软死了

X:韩元左侧位置

Y:韩元以上的位置

W:韩元宽

H:圆形高度

在特定应用程序中，您可以直接设置其他值进行测试。可能会发生事故，但不会太大。

代码广播

Sub addOval()

Dim ws as工作表

Set ws=作用中的图纸

Dim o As Shape

Dim x as long、y as long、w as long、h as long

X=VBA。Int(800-100 1) * VBA。Rnd 100

Y=VBA。Int(300-100 1) * VBA。Rnd 100

W=VBA。Int(100-10 1) * VBA。Rnd 10

H=w

Dim r as integer、g as integer、b as integer

R=VBA。Int(255-0 1) * VBA。Rnd 0

G=VBA。Int(255-0 1) * VBA。Rnd 0

B=VBA。Int(255-0 1) * VBA。Rnd 0

Set o=ws。S(msoShapeOval、x、y、w、h)

创建新圆

With o

.填充。ForeColor.RGB=RGB(r，g，b)'填充的圆形颜色

End With

End Sub删除圆代码

特别通知：

如果您不熟悉以下代码，请不要严格听和执行此建议。

因为可以从Excel文件中删除相关图表，所以没有后悔的机会，所以建议新手不要在删除相关代码方面运行。因为有些东西删除了就再也回不来了。大卫亚设(David Assell)，Northern Exposure(美国电视新闻)。

“Sub ClearOvalShape()”删除圆

Dim C As Shape

For Each C In Ac遍历表中的图形

如果If C.Type=1 Then '图形，则删除

C.删除

End If

Next C

End Sub感兴趣，欢迎收集