在此Excel中，除了使用圖形的方法外，還可以生動(dòng)地顯示工作表。這些圖形的使用有一些需要操作的代碼。

本節(jié)介紹如何在工作表中復(fù)制和粘貼圖形。

如上圖所示，簡單地復(fù)制了幾個(gè)文本框。和其他圖表的道理使用方法一樣。

這將使用表示繪圖層上的對象(例如選定圖形、任意多邊形、OLE對象或地物)的對象Shape。

默認(rèn)方法如下圖所示。

代碼

Me。Shapes(2)。OnAction='ShowX ' '指定宏

Me。Shapes(2)。復(fù)制“拷貝”

Me。粘貼“粘貼”

刪除“Selec”

Me。Shapes(2)?！癙ickUp”復(fù)制格式

Me。Shapes(3)?！皯?yīng)用”參考格式

Set xobj=Me。Shapes(2)。' Duplicate '復(fù)制并返回Shape引用

With xobj

.Top=20

.Left=20

.Width=200

.Height=200

End With

Me。Shapes(2)。OnAction=' ' '取消宏

解釋

1.如果需要特定于Shape的自動(dòng)化功能，可以執(zhí)行宏任務(wù)。

可以使用OnAction方法設(shè)置路徑

Me。Shapes(2)。OnAction='ShowX ' '指定宏

Me。Shapes(2)。OnAction=' ' ' '取消宏

2.要將一個(gè)Shape的圖案應(yīng)用于另一個(gè)Shape，可以使用以下兩行代碼：

Me。Shapes(2)?！癙ickUp”復(fù)制格式

Me。Shapes(3)?！皯?yīng)用”參考格式

3、如果想復(fù)制和返回Shape，可以使用以下代碼：

Set xobj=Me。Shapes(2)。' Duplicate '復(fù)制并返回Shape引用

對象xobj是復(fù)制和返回的對象。

通過熟悉這些點(diǎn)，您可以基本了解如何復(fù)制和使用某些Shape對象。

歡迎關(guān)注，所長。

-結(jié)束-