Excel VBA生成和清除自定義尺寸形狀在Excel中，通過VBA模塊實現(xiàn)按鈕控制生成和清除自定義尺寸形狀是一種高效的方法。通過點擊“生成圖形”按鈕可以創(chuàng)建所需形狀，而點擊“清除”按鈕則可清除已生

Excel VBA生成和清除自定義尺寸形狀

在Excel中，通過VBA模塊實現(xiàn)按鈕控制生成和清除自定義尺寸形狀是一種高效的方法。通過點擊“生成圖形”按鈕可以創(chuàng)建所需形狀，而點擊“清除”按鈕則可清除已生成的形狀。本教程將以按鈕控制自定義尺寸圓柱的生成與清除作為示例。

新建Excel文檔及準備工作

首先，新建一個Excel文檔并保存為.xlsx格式。接著，在文檔中準備兩個單元格，作為圓柱的高和寬的輸入單元格，例如選擇J10和J11單元格作為示例。插入一個矩形形狀，并編輯文字為“生成圓柱”，設置邊框、填充色和形狀效果，制作成“生成圓柱”按鈕。同樣，制作一個“清除圓柱”按鈕，方法與“生成按鈕”相似（可以直接復制并修改文字）。

編寫VBA代碼

切換到Excel界面，并進入VBA界面。在新建的模塊中輸入以下代碼：

```vba

Option Explicit

Sub addshape()

Dim YZ As Shape ' 定義圓柱

Dim i As Integer ' 定義圓柱寬

Dim j As Integer ' 定義圓柱高

i Range("J10").Value

j Range("J11").Value

On Error Resume Next

(3).Delete

Set YZ (msoShapeCylinder, 30, 30, i, j)

End Sub

Sub clearshape()

On Error Resume Next

Sheets(1).Shapes(3).Delete

End Sub

```

生成和清除形狀

回到Excel界面，在J10和J11單元格中輸入合法的數(shù)值（大于0），然后點擊“生成按鈕”即可生成圓柱形狀。如果需要更改尺寸，只需修改單元格數(shù)值并再次點擊“生成圓柱”按鈕，原圓柱將被刪除并生成新的圓柱。另外，點擊“清除”按鈕可以刪除已生成的圓柱形狀，保持表格整潔。

通過以上步驟，你可以輕松掌握Excel中通過按鈕控制自定義尺寸形狀的技巧，提高工作效率，美化數(shù)據(jù)展示。使用VBA代碼結合按鈕操作，使得生成和清除形狀變得簡單快捷，為Excel表格添加更多亮點。