/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
ConvertToShape
Fra : Carsten Troelsgaard


Dato : 24-08-02 10:20

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




 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste