Wie kann ich die Gruppe eine Reihe von Formen, die programmgesteuert in excel 2007 vba?

Ich bin der Iteration über die Daten auf der Elektrischen Tabellen-Blatt und erstellen von Formen auf einem Form Blatt. Sobald die Formen geschaffen sind, möchte ich programmatisch zusammenfassen. Allerdings kann ich nicht herausfinden, die richtige syntax. Die Formen gibt es, ausgewählt, und wenn ich auf die Schaltfläche Gruppe, diese Gruppe perfekt. Aber mit dem folgenden code bekomme ich

Runtime Error 438-Objekt unterstützt diese Methode oder Eigenschaft.

Ich bin stützend diesen code auf vba-Beispiele aus dem web - ich bin nicht besonders vba-Programmierer. Was ist der richtige Weg, dies zu tun? Ich arbeite mit excel 2007 und Wechsel in den excel-Versionen eine option nicht.

problematisch snippet : 

Set shapeSheet = Worksheets("Shapes")
With shapeSheet
 Selection.ShapeRange.Group.Select
End With

Kontext :

Dim shapeSheet As Worksheet
Dim tableSheet As Worksheet
Dim shpGroup As Shape

Set shapeSheet = Worksheets("Shapes")
Set tableSheet = Worksheets("Electrical Tables")


With tableSheet
    For Each oRow In Selection.Rows
            rowCount = rowCount + 1
            Set box1 = shapeSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50 + ((rowCount - 1) * 14), 115, 14)
            box1.Select (False)
            Set box1Frame = box1.TextFrame
            Set box2 = shapeSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 165, 50 + ((rowCount - 1) * 14), 40, 14)
            box2.Select (False)
            Set box2Frame = box2.TextFrame
     Next
End With
Set shapeSheet = Worksheets("Shapes")
With shapeSheet
 Selection.ShapeRange.Group.Select
End With

InformationsquelleAutor Andrew Bucknell | 2011-06-05

  1. 4

    Dieser arbeitete für mich in Excel 2010:

    Sub GroupShapes()

    Sheet1.Shapes.SelectAll
    Selection.Group

End Sub

    Hatte ich zwei Formen auf Blatt 1, die wurden aufgelöst, bevor Sie die oben beschriebene Methode und gruppiert nach.

    Bearbeiten

    Auf bestimmte Formen der Verwendung von Indizes:

    Sheet1.Shapes.Range(Array(1, 2, 3)).Select

    Namen:

    Sheet1.Shapes.Range(Array("Oval 1", "Oval 2", "Oval 3")).Select
    Danke für den Zeiger. Auswahl.Gruppe scheint nicht, etwas zu tun in Excel 2007. Es gibt vielleicht schon andere Formen in der Form Blatt, so ruft SelectAll nicht sinnvoll.
    das ist seltsam, dass Group funktioniert nicht in Excel 2007. Ich werde testen, dass der weitere morgen, wenn ich auf der Arbeit bin. (Ich habe Office 2007.) Auch SelectAll war einfach ein schneller Weg für mich zu wählen Sie mehrere Formen. Für Ihre situation, würden Sie wollen, um die Range-Eigenschaft des Shapes-Objekts. Ich werde aktualisieren, meine Antwort...
    tatsächlich: check-out chris Nielsen ' s Antwort. Es ist perfekt für das, was du tust. Ersetzen Sie einfach die Box1.Name's mit deiner TextBox Variablen (wie viele es sind) und Sie sollten gut zu gehen.
    (Den obigen Kommentar davon ausgegangen, dass Sie waren in der Lage, um die Group-Methode zu arbeiten.)
    Danke Nick - bit-ich fehlte war zu tun shapeSheet.Aktivieren, bevor Sie versuchen zu arbeiten, mit der Auswahl für das Blatt. Gruppe funktioniert - vielen Dank für zeigt mir die richtige syntax.

    InformationsquelleAutor Nick Spreitzer

  2. 8

    Kein müssen zuerst auswählen, benutzen Sie einfach

    Set shpGroup = shapeSheet.Shapes.Range(Array(Box1.Name, Box2.Name)).Group

    PS. der Grund, warum Sie die Fehlermeldung erhalten, dass das selection-Objekt Punkte, was auch immer ausgewählt wird, auf das Blatt (die nicht werden die Formen einfach erstellt werden), wahrscheinlich ein Range und Range keinen Shapes Eigenschaft. Wenn Sie zufällig noch andere Formen auf dem Blatt, und Sie wurden ausgewählt, dann würden Sie gruppiert werden.

    Komisch: ich dachte, ich habe versucht, und es hat nicht funktioniert. Ich war falsch. Doh. +1
    Hässlich, aber scheint die einzige Möglichkeit, um ein ShapeRange.

    InformationsquelleAutor chris neilsen

  3. 1

    Ich hatte das gleiche problem, aber erforderlich, um wählen Sie ein paar Formen (vorher erstellt und das makro aufgeführt und in ein array von Formen), aber nicht "wählen.alle", weil es möglicherweise andere Formen auf der Folie.

    Die Schaffung einer shaperange-war nicht wirklich einfach.
    Der einfachste Weg ist, einfach mit dem Fahrrad durch die shape-Objekte (wenn Sie bereits wissen,), und wählen Sie simulieren "halten Sie die Strg-Taste gedrückt" mit der option "Replace:=False".

    So, hier ist mein code:

    For ix = 1 To x
    bShp(ix).Select Replace:=False
Next
ActiveWindow.Selection.ShapeRange.Group

    Hoffe, das hilft,
    Kerry.

    Danke, Kerry! Aber hier spreadsheet1.com/how-to-group-shapes.html ich fand einfachere Lösung für eine beliebige Anzahl von Formen, die - ohne "Auswahl"

    InformationsquelleAutor Kerry

Schreibe einen Kommentar