Änderung der Eigenschaften eines Objekt in einer Gruppierung
Maximilian Hofer
Ich habe folgendes Problem:
In meinem Exceldokument habe ich eine Gruppierung von mehreren Textblöcken.
Ich möchte den Innhalt (den Text) der Textblöck mittels VBA verändern ohne
die Gruppierung aufzuheben.
Das müsste doch mit folgender Zeile in VBA funktionieren:
ActiveSheet.Shapes(1).GroupItems(1).DrawingObject.Text = "Text"
oder
ActiveSheet.Shapes(1).GroupItems(1).DrawingObject.Caption = "Text"
Es kommt jedoch immer folgende Fehlermeldung:
Laufzeitfehler '1004':
Die Text-Eigenschaft des Text-Box-Objekts kann nicht festgelegt werden.
Für Hilfe wäre ich dankbar.
mfg Maximilan
Frank Arendt-Theilen
ließ bitte meinen Beitrag von 10:47 Uhr.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Tue, 11 Apr 2000 14:38:44 +0200, schrieb "Maximilian Hofer"
<ho...@abacon.net> in microsoft.public.de.excel zu "Änderung der
Eigenschaften eines Objekt in einer Gruppierung":
Frank Arendt-Theilen
hebe die Gruppierung der Gruppe der Zeichnungsobjekte auf und vergib
jedem Zeichnungsobjekt einen Namen über das Namenfeld.
Anschließend startest du das von dir angepaßte Makro 'GruppeBilden'.
Jetzt benötigst du nur noch das zweite Makro, über dem du die
Textzuweisung an die Textbox durchführst.
Sub GruppeBilden()
ActiveSheet.Shapes.Range(Array("Rechteck", _
"Textbox", "Ellipse")).Select
Selection.ShapeRange.Group.Select
Selection.Name = "Gruppe"
End Sub
Sub TextZuTextbox()
With ActiveSheet
.Shapes("Gruppe").Ungroup
.Shapes("Textbox").Select
Selection.Characters.Text = "Hallo"
End With
Call GruppeBilden
End Sub
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
> Hallo Frank !
> Danke für die Information im News microsoft.public.de.excel.
> Es ist jedoch nicht das was ich gemeint habe.
> Ich möchte den Innhalt einer Textbox in einer Gruppierung, und nicht
> den Namen des ' Item' in dieser Gruppierung ändern. Trotzdem vielen
> Dank für deine Bemühungen.
>
> mfg maximilian
>