Wie man die ausgewählte Form in excel-vba?

Habe ich eingefügt, eine intelligente art, und baute es zu Formen. Und wählte eine Form, indem Sie es anklicken.

Nun möchte ich, um Shape-Objekt von slected Form. Ich habe dies ausprobiert, aber es wird eine Ausnahme ausgegeben.

dim shap as Excel.Shape = ExcelApp.Selection

Ich kann das shape-Objekt von der Iteration auf ActiveSheet.Formen oder so

dim shap as Excel.Shape = ActiveSheet.Shapes.Item(1)

Aber wie würde ich wissen, diese Form gewählt ist oder nicht, brauche Wirklich Hilfe Danke.

Was ist die Fehlermeldung, die Sie bekommen? Haben Sie versucht, casting ExcelApp.Selection auf eine Form?
Ja, ich habe versucht die Explizite Konvertierung zu und es gibt mir die gleiche Ausnahme. Unable to cast COM object of type 'System.__ComObject', um den Schnittstellentyp " Microsoft.Office.Interop.Excel.Form'. Dieser Vorgang ist fehlgeschlagen, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit IID '{00024439-0000-0000-C000-000000000046}' konnte aufgrund des folgenden Fehler: Schnittstelle Nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).
Vielleicht versuchen Sie das Programm, die hier vorgeschlagen werden: social.msdn.microsoft.com/Forums/en-US/vsto/thread/...
In VBA können Sie nicht verwenden 'Dim x As Y = irgendwas -- Sie haben, zu erklären, das Objekt auf eine eigene Zeile. Sehen Sie, wenn das (und Rachel ' s Vorschlag) hilft Ihnen.

InformationsquelleAutor Waqas | 2011-11-23

3

Versuchen Selection.ShapeRange um eine Referenz auf das shape-Objekt.

Einstellung eine Form, Bezug auf Auswahl.ShapeRange wird nicht Fliegen ... gibt einen Type Mismatch-Fehler. Auswahl.ShapeRange(1) gibt ein Form-Objekt, anstatt ein range-Objekt, also keine Fehler.
Zusätzlich zu dieser Antwort habe ich gefunden, dass Microsoft docs über diese (msdn.microsoft.com/en-us/vba/excel-vba/articles/...). Er sagte: "Verwenden Sie Auswahl.ShapeRange( index ), wobei index der shape-Namen oder die Indexnummer, um wieder eine einzelne Form in der Auswahl. Das folgende Beispiel setzt die Vordergrundfarbe füllen der Form zwei in der Sammlung des ausgewählten shapes im Fenster ein, vorausgesetzt, es gibt mindestens zwei Formen der Selektion."

InformationsquelleAutor Rachel Hettinger

Dieser bekommt eine ausgewählte Form oder Nichts, falls keine oder mehrere Formen ausgewählt sind. Offensichtlich, drop können Sie die MsgBox-Aufrufe.

Function GetSelectedShape() As Shape
    If TypeName(Selection) <> "Rectangle" Then
        MsgBox "Selection is not a single shape"
        Exit Function
    End If
    Dim oShapes As ShapeRange
    Set oShapes = Selection.ShapeRange

    If oShapes.Count <> 1 Then
        MsgBox "Selection is not a single shape"
        Exit Function
    End If

    Set GetSelectedShape = oShapes(1)

End Function

InformationsquelleAutor Jbjstam

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.