欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

大家好，我們今日繼續講解VBA代碼解決方案的第117講內容：如何在工作表中添加圖形。如果需要在工作表中添加圖形對象，可以使用AddShape方法，當該方法應用于Shapes對象時(shí)，返回一個(gè)Shape對象，該對象代表工作表中的新自選圖形，語(yǔ)法如下：

expression.AddShape(Type, Left, Top, Width, Height)

參數expression是必須的，返回一個(gè)Shapes對象。

參數Type是必須的，指定要創(chuàng )建的自選圖形的類(lèi)型。如下:

msoShapeRectangle 矩形

msoShapeRightTriangle 直角三角形

msoShapeSmileyFace 笑臉

msoShape5pointStar 五角星

參數Left和Top是必須的，以磅為單位給出自選圖形邊框左上角的位置。

參數Width和Height是必須的，以磅為單位給出自選圖形邊框的寬度和高度。

下面我們看一下下面的代碼。

Sub MynzAddShape()

Dim myShape As Shape '聲明對象的類(lèi)型

On Error Resume Next

Sheets('sheet2').Shapes('myShape').Delete '刪除可能名字為myShape的圖形對象

Set myShape = Sheets('sheet2').Shapes.AddShape(msoShapeSmileyFace, 40, 40, 280, 160) '添加一個(gè)笑臉形狀

With myShape

.Name = 'myShape' '設置形狀的名稱(chēng)

End With

myShape.Select

With Selection.ShapeRange '設置形狀的邊框線(xiàn)條格式

With .Line

.Weight = 1 '置形狀線(xiàn)條粗細

.DashStyle = msoLineSolid '設置形狀線(xiàn)條的虛線(xiàn)樣式

.Style = msoLineSingle '設置形狀填充的透明度

.Transparency = 0

.Visible = msoTrue '設置形狀為可見(jiàn)

.ForeColor.SchemeColor = 39 '置形狀的前景色

End With

With .Fill '設置形狀的內部填充格式

.Transparency = 0 '設置形狀內部的透明度

.Visible = msoTrue '設置形狀內部為可見(jiàn)

.ForeColor.SchemeColor = 6 '設置形狀內部的前景色

End With

End With

End Sub

代碼截圖：

代碼解析：AddShape過(guò)程在工作表中添加一個(gè)笑臉并設置其外觀(guān)等屬性。

第2行代碼聲明變量myShape的對象類(lèi)型。

第3、4行代碼刪除可能存在的名稱(chēng)為'myShape'的圖形對象。

第5行代碼使用AddShape添加笑臉

其余的屬性設置就不再一一的解釋了，請讀者看上面的代碼注釋?zhuān)?/p>

看運行的結果：

如果我們把代碼Set myShape = Sheets('sheet2').Shapes.AddShape(msoShapeSmileyFace, 40, 40, 280, 160) 換成：

Set myShape = Sheets('sheet2').Shapes.AddShape(msoShape5pointStar, 40, 40, 280, 160)

點(diǎn)運行：

今日內容回向：

1. 如何添加一個(gè)圖形？

2 圖形的屬性是如何設置的？