Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AddShape

AddShape
Thomas Risi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Re: AddShape
17.06.2003 13:23:29
L.Vira


Option Explicit
Sub test()
Dim Sh As Shape, l#, t#, w#, h#
l = 10
t = 20
w = 30
h = 40
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h)
End Sub

lass die Klammern weg.
17.06.2003 13:27:42
xxx

Gruß aus'm Pott
Udo

Re: AddShape+Dank an L.Vira
17.06.2003 13:27:47
Ramon

Danke L.Vira! Es klappt!

Re: AddShape
17.06.2003 13:30:19
Oliver

Hallo Ramon,

änder als erstes das ö (höhe) in oe. Sollte dieses auch nicht funktionieren, so scheinst es, als hätte Thomas Risi recht.
Du musst im VB Editor unter Extras -> Verweise den Eintrag "Microsoft Office x.0 Object Library" anhaken.

Gruß

Oliver

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige