Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisches positionieren von Shapes

Forumthread: automatisches positionieren von Shapes

automatisches positionieren von Shapes
05.11.2007 18:21:00
Shapes
Hallo Forum,
mit nachfolgendem Code positioniere ich Shapes an die im Code angegebene Position.

Sub Makro3()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 180, 75#, 30#, 30#).Select
End Sub


Ich möchte nun, daß sich das Rechteck automatisch bei einer vorher markierten/selektierten Zelle positioniert.
Gibt es da eine Möglichkeit?
Gruß
Jürgen

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches positionieren von Shapes
05.11.2007 18:45:00
Shapes
Hallo Jürgen,
so?
Sub Makro3()

With ActiveCell
    ActiveSheet.Shapes.AddShape msoShapeRectangle, .Left, .Top, .Width, .Height
End With

End Sub

Gruß Sepp

Anzeige
AW: automatisches positionieren von Shapes
05.11.2007 19:47:11
Shapes
Hallo Sepp,
Danke für deine Hilfe. Deine Lösung hat mich auf die Idee gebracht, da ja die Left- und Top-Werte jeweils auch noch ermittelt werden müssen.
Hier meine zwei Lösungen:

Sub Makro8()
Dim LW, HW
LW = ActiveCell.Left: HW = ActiveCell.Top
ActiveSheet.Shapes.AddShape(msoShapeRectangle, LW, HW, 60#, 40#).Select
End Sub


oder


Sub Makro9()
Dim Form As Shape
With ActiveCell
Set Form = ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, 60#, 40#)
End With
End Sub


Gruß
Jürgen

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige