Einem shape ein Makro zuordnen nicht möglich - Warum?

08/12/2010 - 10:00 von Walter Heying | Report spam
Hallo,

ich habe einem Shape-Objekt ein Makro zuordnen wollen. Doch leider
gibt Excel eine Fehlermeldung aus. Ich habe folgendes Makro zum
Erstellen und Makro zuordnen genutzt:
Sub ShapeErzeugen()
Dim Blatt, Shapetext
Shapetext = "Daten aus der geöffneten" & Chr(13) & "..tsv-Datei" &
Chr(13) & "in diese kopieren"
Set Blatt = Worksheets("Oracle-Bewegungen")
With Blatt.Shapes.AddShape(msoShapeRectangle, 200, 144, 210,
72) 'links, oben, Größe: breite, höhe
.Name = "Daten kopieren"
End With
Blatt.Shapes("Daten kopieren").Select
Selection.Characters.Text = Shapetext
Selection.OnAction ("Daten_kopieren")
End Sub

Die Fehlermeldung "Lauzeitfehler 1004 - Die OnAction-Methode des
Rectangle-Objektes konnte nicht ausgeführt werden" wird ausgegeben.
Ich verstehe das nicht. Was ist falsch an der Codezeile:
Selection.OnAction ("Daten_kopieren") ???

Gruß
Walter
 

Lesen sie die antworten

#1 Wolfgang Habernoll
08/12/2010 - 17:50 | Warnen spam
Walter Heying schrieb:
Hallo,

ich habe einem Shape-Objekt ein Makro zuordnen wollen. Doch leider
gibt Excel eine Fehlermeldung aus. Ich habe folgendes Makro zum
Erstellen und Makro zuordnen genutzt:
Sub ShapeErzeugen()
Dim Blatt, Shapetext
Shapetext = "Daten aus der geöffneten"& Chr(13)& "..tsv-Datei"&
Chr(13)& "in diese kopieren"
Set Blatt = Worksheets("Oracle-Bewegungen")
With Blatt.Shapes.AddShape(msoShapeRectangle, 200, 144, 210,
72) 'links, oben, Größe: breite, höhe
.Name = "Daten kopieren"
End With
Blatt.Shapes("Daten kopieren").Select
Selection.Characters.Text = Shapetext
Selection.OnAction ("Daten_kopieren")
End Sub

Die Fehlermeldung "Lauzeitfehler 1004 - Die OnAction-Methode des
Rectangle-Objektes konnte nicht ausgeführt werden" wird ausgegeben.
Ich verstehe das nicht. Was ist falsch an der Codezeile:
Selection.OnAction ("Daten_kopieren") ???

Gruß
Walter




hallo Walter, versuche es mal so

Selection.OnAction = ("Daten_kopieren")

mfG
Wolfgang Habernoll

Ähnliche fragen