Object Model Reference : Classes : S : Shape : Methods : Shape.Weld |
Function Weld(TargetShape As Shape, [LeaveSource As Boolean = False], [LeaveTarget As Boolean = False]) As Shape
Member of Shape
The Weld method welds shapes together.
The following VBA example creates a circle and a square, and it then welds them together.
Sub Test() |
Dim s1 As Shape, s2 As Shape |
Dim s As Shape |
Set s1 = ActiveLayer.CreateEllipse2(4, 5, 2) |
Set s2 = ActiveLayer.CreateRectangle2(2, 1, 4, 4) |
Set s = s1.Weld(s2) |
s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.