Excel工作表中怎么添加圖形

  向Excel工作表中手動插入圖形對象是十分方便的,如果需要向工作表中插入大量圖形,或是對繪制的圖形對象大小和位置有很準確的要求,用手工繪制的方法就不太方便了。此時可以通過VBA程序來進行圖形對象的繪制。本文以在工作表中繪制一個三角形為例來介紹向Excel工作表中添加圖形的方法。

  1、啟動Excel并打開Visual Basic編輯器,在工程資源管理器中插入一個模塊,在模塊的“代碼”窗口中輸入程序代碼,如圖1所示。具體的程序代碼如下所示:

  Sub DrawTr()

  Dim triArray(1 To 4,1 To 2)As Single

  triArray(1,1)=25

  triArray(1,2)=100

  triArray(2,1)=100

  triArray(2,2)=150

  triArray(3,1)=150

  triArray(3,2)=50

  triArray(4,1)=25

  triArray(4,2)=100

  Worksheets(1).Shapes.AddPolyline triArray

  Worksheets(1).Shapes(1).Fill.ForeColor.RGB=RGB(15,100,255)

  End Sub



  圖1 創建模塊并輸入程序代碼

  提示

  在VBA中,使用Shapes對象的AddPolyline方法能夠創建一個不封閉或封閉的多邊形,該方法將能夠返回一個代表新的連續線段或多邊形的Shape對象。該方法的語法格式如下所示:

  表達式AddPolyline(SafeArrayOfPoints)

  這里,表達式是一個代表Shapes對象的變量,該方法的SafeArrayOfPoints參數是一個必選參數,其是用于指定多邊形頂點的坐標對所組成的數組,坐標對指的是一對數值,該數值表示點的X和Y坐標。

  2、按F5鍵運行該段程序代碼,在Excel工作表中將插入一個藍色的三角形,如圖2所示。



  圖2 在工作表中插入三角形

猜你喜歡

  1. 在excel工作表中怎么添加折線圖?

    我們在excel工作表的處理過程中,經常會需要把一些數據用圖表的形式表現出來,使得數據更加直觀明了.在excel工作表中添加折線圖,方便易操作,能夠使得數據呈現方式簡潔明了.那么在excel工作表中怎 ...

  2. Excel工作表中怎么插入分類匯總

    ? Excel工作表中怎么插入分類匯總 1.打開需要創建分類匯總的工作表,選擇"員工部門"所在的列后在"數據"選項卡的"排序和篩選"組中單擊 ...

  3. 用公式查找Excel工作表中重復數據

    前不久,一位網友求教,要求找出Excel工作表中的重復數據并在單元格中列出。我給出了一個數組公式供參考,但不是太符合要求,因為這個數組公式雖然找出了重復數據,但是如果將數組公式向下復制時超出了出現重復 ...

  4. Excel工作表中快速跳轉單元格的快捷鍵一覽

    Excel工作表中快速跳轉單元格的快捷鍵一覽 在Excel工作表中,可以使用如下的快捷鍵快速跳轉單元格: (1)按組合鍵Ctrl+Home:可以快速跳轉到工作表的第1個單元格; (2)按組合鍵Ctrl ...

  5. Excel工作表中使用模擬運算表的方法

    Excel工作表中使用模擬運算表的方法 1.創建一個新的Excel工作表,并在工作表輸入數據.在B9單元格中輸入提成金額的計算公式"=$B$2*$B$3",如圖1所示. 圖1 創建 ...

  6. Excel工作表中隔行插入空白行的方法

    Excel工作表中隔行插入空白行的方法 1.在工作表的數據區域外的一個列的開始單元格中輸入數字"1"和"2",如圖1所示.同時選擇這2個單元格,將鼠標指針放置到 ...

  7. Excel工作表中同時插入多行或多列的方法

    Excel工作表中同時插入多行或多列的方法 1.在工作表中同時選擇多行,如這里選擇3行.右擊,選擇快捷菜單中的"插入"命令,將在選擇行前插入和選擇行數相同的行,如圖1所示. 圖1 ...