Thema Datum  Von Nutzer Rating
Antwort
Rot EXCEL - ShapeRange.Group
11.03.2014 11:40:12 Heike
*****
NotSolved
11.03.2014 22:54:03 H27
NotSolved

Ansicht des Beitrags:
Von:
Heike		 Datum:
11.03.2014 11:40:12		 Views:
3202		 Rating:
     
Antwort:
  Ja
Thema:
EXCEL - ShapeRange.Group

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" .....

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot EXCEL - ShapeRange.Group
11.03.2014 11:40:12 Heike
*****
NotSolved
11.03.2014 22:54:03 H27
NotSolved