Vba也可以畫畫。也不是秘密，你用過嗎？

相信不是經(jīng)常使用Excel的人也對此了解不多。

創(chuàng)建圖形不是Excel的強項，但此功能也很有用。

效果圖

制作精美的表格需要熟練掌握圖形。

下面介紹如何使用代碼自動創(chuàng)建圓形效果。

我只扔了磚頭，能吸引玉嗎，那就看自然吧。

生成隨機多圓

大小和顏色也是隨機生成的，因此每次單擊按鈕的效果都不同。

將此功能用于某些軟件應(yīng)用程序可以顯著提高應(yīng)用程序界面的美觀度，還可以減少使用相同顏色引起的視覺疲勞。

從整體上看，這個效果還是可以圈起來的。兒童節(jié)好像來了嗎？當(dāng)然，您可以畫五角星或三角星，也可以根據(jù)您的選擇畫漂亮的畫。(大衛(wèi)亞設(shè))。

你有創(chuàng)意什么都可以做，不是嗎？

要點來了

說這么多要切入正題。

先說一下怎么使用代碼。

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

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

MsoShapeOval:圓形標(biāo)識符，這是微軟死了

X:韓元左側(cè)位置

Y:韓元以上的位置

W:韓元寬

H:圓形高度

在特定應(yīng)用程序中，您可以直接設(shè)置其他值進(jìn)行測試。可能會發(fā)生事故，但不會太大。

代碼廣播

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)

創(chuàng)建新圓

With o

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

End With

End Sub刪除圓代碼

特別通知：

如果您不熟悉以下代碼，請不要嚴(yán)格聽和執(zhí)行此建議。

因為可以從Excel文件中刪除相關(guān)圖表，所以沒有后悔的機會，所以建議新手不要在刪除相關(guān)代碼方面運行。因為有些東西刪除了就再也回不來了。大衛(wèi)亞設(shè)(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感興趣，歡迎收集