Hvorfor virker ConvertToShape ikke i nedenstående sammenhæng?
Fejlmeddelelsen fortæller ikke noget der kan bruges.
Dim x1, y1, x2, y2, x3, y3, x4, y4
Const opkx = 50
Const opky = 250
Const enh10 = 23
Const enh05 = 11
Sub dfga()
x1 = opkx
y1 = opky
x2 = opkx
y2 = opky - 0.5 * enh05
x3 = opkx + enh10
y3 = opky - 0.5 * enh05
x4 = opkx + enh10
y4 = opky
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x1, y1)
.AddNodes msoSegmentLine, msoEditingAuto, x2, y2
.AddNodes msoSegmentLine, msoEditingAuto, x3, y3
.AddNodes msoSegmentLine, msoEditingAuto, x4, y4
.AddNodes msoSegmentLine, msoEditingAuto, x1, y1
.ConvertToShape
End With
end sub
|