Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Shapeobjekt an Position x/y vorhanden ?

Forumthread: Shapeobjekt an Position x/y vorhanden ?

Shapeobjekt an Position x/y vorhanden ?
09.07.2006 01:06:53
Gast
Hallo Excelgemeinde,
wie kann ich per VBA prüfen ob ein Shapeobjekt an Position x/y vorhanden ist?
Gruß Gast
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 01:11:59
Holger
Hi,
indem du in einer Schleife die x/y Position aller Shapes abfragst.
mfg Holger
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 01:20:25
Gast
Hi Holger,
Du schreibst: "indem du in einer Schleife die x/y Position aller Shapes abfragst"
Ich frage; Wie sieht so eine Schleife aus?
MFG / Gast
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 01:38:27
Josef
Hallo Peter!
Sub ShapePosition()
Dim objShp As Shape

For Each objShp In ActiveSheet.Shapes
  Debug.Print objShp.Name & "; X:= " & objShp.Left & "; Y:= " & objShp.Top & "; In Zelle "; objShp.TopLeftCell.Address(0, 0)
Next

End Sub



Gruß Sepp

Anzeige
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 17:45:08
Gast
Hallo Sepp,
schön Dich wieder öfters hier zu lesen :-)))
Wie stelle ich das ganze an wenn ich es über eine MsgBox anzeigen will?
Schönen Sonntag noch, Gru? Gast
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 18:49:07
Josef
Hallo Peter!
Das geht so.
Sub ShapePosition()
Dim objShp As Shape
Dim strMsg As String

For Each objShp In ActiveSheet.Shapes
  strMsg = strMsg & objShp.Name & "; X:= " & objShp.Left & "; Y:= " & _
    objShp.Top & "; In Zelle " & objShp.TopLeftCell.Address(0, 0) & vbLf
Next

If Len(strMsg) > 0 Then
  MsgBox strMsg
End If

End Sub


Gruß Sepp

Anzeige
AW: Shapeobjekt an Position x/y vorhanden ?
09.07.2006 19:19:43
Gast
Danke Sepp,
einen angenehmen Tag noch.
Gruß Gast
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum