我正在嘗試將合并的形狀分配給新圖層。我試圖分配初始形狀，但沒有奏效。到目前為止，這是我編碼的一部分。
Dim vsoLayer As Visio.Layer
Dim vsoLayers As Visio.Layers
Set vsoLayers = ActivePage.Layers
Set vsoLayer = vsoLayers.Add("Layer1")
Dim vsoShapeA1 As Visio.shape
Set vsoShapeA1 = ActivePage.DrawRectangle(1, 5, 5, 1)
vsoShapeA1.Cells("Fillforegnd").Formula = "RGB(215,135,131)"
vsoShapeA1.BringToFront
Dim vsoShapeA2 As Visio.shape
Set vsoShapeA2 = ActivePage.DrawRectangle(2, 6, 6, 1)
vsoShapeA2.Cells("Fillforegnd").Formula = "RGB(215,135,131)"
vsoShapeA2.BringToFront
ActiveWindow.DeselectAll
vsoSelection.Select vsoShapeA1, visSelect
vsoSelection.Select vsoShapeA2, visSelect
vsoSelection.Union
vsoLayer.Add (?)......
然后我堅持將合并的形狀分配給一個圖層。需要幫助。謝謝。
uj5u.com熱心網友回復：
Union 將洗掉現有形狀并創建一個新形狀。新形狀將是頁面形狀集合中的最新形狀。您可以使用 來獲取對新形狀的參考并將其添加到圖層：
Set vsoNewShape = ActivePage.Shapes.Item(ActivePage.Shapes.Count)
vsoLayer.Add vsoNewShape, 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/348751.html
上一篇：我試圖找到給定范圍之間的所有數字
下一篇：MongoDB嵌套搜索查詢引數