Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon jojo5 vom 13.05.2020, 18:43 Options
Die Methode 'Height' für das Objekt 'ShapeRange' ist fehlgeschlagen
Hallo,
die o.g. Fehlermeldung erscheint beim Ablauf des VBA-Makros. Der entsprechende Code lautet:
With Sheets("Wochenbericht").Shapes.Range(Array("Text Box 8", "Text Box 7"))
.LockAspectRatio = msoFalse
.Height = 50.25
.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft
End With
Zuvor hatte ich das Ganze ohne "With" (stattdessen "harte" Selektion des Shape und dann
"Selection.ShapeRange.Height = 50.25"). Ich möchte aber komplett auf select verzichten.
Kann mir jemand den Fehler nennen bzw. hat mir jemand den korrekten Code hierfür?
Das wäre klasse!
Vielen Dank schon mal, viele Grüße
Jojo
die o.g. Fehlermeldung erscheint beim Ablauf des VBA-Makros. Der entsprechende Code lautet:
With Sheets("Wochenbericht").Shapes.Range(Array("Text Box 8", "Text Box 7"))
.LockAspectRatio = msoFalse
.Height = 50.25
.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft
End With
Zuvor hatte ich das Ganze ohne "With" (stattdessen "harte" Selektion des Shape und dann
"Selection.ShapeRange.Height = 50.25"). Ich möchte aber komplett auf select verzichten.
Kann mir jemand den Fehler nennen bzw. hat mir jemand den korrekten Code hierfür?
Das wäre klasse!
Vielen Dank schon mal, viele Grüße
Jojo
Antwort 1 von jojo5 vom 15.05.2020, 14:59 Options
Hallo,
ich denke, ich hab' die Antwort jetzt doch selbst gefunden.
Ich habe bei meiner "Select-Bereinigungsaktion" nicht berücksichtigt, dass - mangels select - nach dem Aktivieren einer Grafik diese wieder deaktiviert werden muss. Denn ist diese Grafik beim Start des Makros aktiviert, taucht die o.g. Fehlermeldung auf. Mit dem Befehl
ActiveWindow.Visible = False
habe ich das wohl behoben.
Vielleicht hilft's ja jemand.
Viele Grüße
Jojo
ich denke, ich hab' die Antwort jetzt doch selbst gefunden.
Ich habe bei meiner "Select-Bereinigungsaktion" nicht berücksichtigt, dass - mangels select - nach dem Aktivieren einer Grafik diese wieder deaktiviert werden muss. Denn ist diese Grafik beim Start des Makros aktiviert, taucht die o.g. Fehlermeldung auf. Mit dem Befehl
ActiveWindow.Visible = False
habe ich das wohl behoben.
Vielleicht hilft's ja jemand.
Viele Grüße
Jojo
Antwort 2 von nighty vom 15.05.2020, 15:50 Options
hi jojo :-)
so ist es oft :-))
verbanne die selectionen und ersetze die aber auch mit eindeutigen angaben wie workbook worksheet usw :-))
das wegnehmen der selectionen reicht da nimmer :-))
zu den selectionen ist mir bisher nur bei der array zuweisung bisher aufgefallen das es ohne nicht geht
gruss nighty
so ist es oft :-))
verbanne die selectionen und ersetze die aber auch mit eindeutigen angaben wie workbook worksheet usw :-))
das wegnehmen der selectionen reicht da nimmer :-))
zu den selectionen ist mir bisher nur bei der array zuweisung bisher aufgefallen das es ohne nicht geht
gruss nighty
Ähnliche Themen
Endtrack fehlgeschlagen
gregor32 26.02.2007 - 232 Hits -
java applet: zeichnen außerhalb der paint() methode
some1unknown 31.05.2007 - 152 Hits -
Laufzeitfehler 1004 bei Methode 'UpdateLink'
jojo5 17.10.2007 - 123 Hits - 2 Antworten
Figur springt über ein Hindernis (und fällt rein)
breznica 29.12.2007 - 76 Hits - 1 Antwort
"Grafik" Platzhalter Position und Größe speichern
inspiron8100 16.06.2008 - 47 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
