|
Hallo,
habe ein "altes" EXCEL-Makro, das bei allen EXCEL-Versionen < EXCEL 2007 fehlerfrei lief.
Ab Version 2007 gibt es bei nachfolgendem Code-Abschnitt bei der Zeile
"Selection.ShapeRange.Group.Select" .....
Function Rahmen_ZeichnenFS(ObNaFS$, ObxFS!, ObyFS!) As Integer
'Zeichnet einen Rahmen
' Ausenrahmen zeichnen und beschriften
Dim Obx8FS!
Dim Oby10FS!
Obx8FS = ObxFS / 8
Oby10FS = ObyFS / 10
FS = Line_FS("Ob_00" & ObNaFS, 2, 2, 2, ObyFS + 18, 0.7, 0)
FS = Line_FS("Ob_01" & ObNaFS, ObxFS + 18, 2, ObxFS + 18, ObyFS + 18, 0.7, 0)
FS = Line_FS("Ob_02" & ObNaFS, 2, 2, ObxFS + 18, 2, 0.7, 0)
FS = Line_FS("Ob_03" & ObNaFS, 2, ObyFS + 18, ObxFS + 18, ObyFS + 18, 0.7, 0)
FS = Line_FS("Ob_04" & ObNaFS, 10, 10, 10, ObyFS + 10, 0.2, 0)
FS = Line_FS("Ob_05" & ObNaFS, ObxFS + 10, 10, ObxFS + 10, ObyFS + 10, 0.2, 0)
FS = Line_FS("Ob_06" & ObNaFS, 10, 10, ObxFS + 10, 10, 0.2, 0)
FS = Line_FS("Ob_07" & ObNaFS, 10, ObyFS + 10, ObxFS + 10, ObyFS + 10, 0.2, 0)
ActiveSheet.Shapes.Range(Array( _
"Ob_00" & ObNaFS, "Ob_01" & ObNaFS, "Ob_02" & ObNaFS, "Ob_03" & ObNaFS, "Ob_04" & ObNaFS, _
"Ob_05" & ObNaFS, "Ob_06" & ObNaFS, "Ob_07" & ObNaFS)).Select
<strong>Selection.ShapeRange.Group.Select</strong>
die Fehlermeldung: Laufzeitfehler '1004': Die Gruppierung ist für die ausgewählten Formen deaktiviert.
Warum ist die Gruppierung "plötzlich" deaktiviert? Wie aktiviere ich sie?
Gruß
Heike
|