Excel-VBA: Wie Überprüfen Sie den Namen des Bildes in der Zelle?

Ich Schreibe ein Programm in makro , überprüfen Sie den Namen des Bildes in eine Zelle, dann legen Sie einen Wert auf die nächste Spalte, basierend auf dem Namen des Bildes.

Mein Programm nur überprüft, ob der name des Bildes vorhanden ist, in das activesheet.

Mein Ziel ist es zu überprüfen, ob der name des Bildes wird auf diese Zelle, und dann legen die einen Wert auf die nächste Spalte, basierend auf dem Namen des Bildes. Vielen Dank.

Sub CheckImageName()
Dim iRowCountShapes As Integer
Dim sFindShape As String

iRowCountShapes = 2


While Sheets("Data").Cells(iRowCountShapes, 1) <> ""

    If Sheets("Data").Shapes("Rock").Name = "Rock" Then

        Sheets("Data").Cells(iRowCountShapes, 3) = "Rock"

    ElseIf Sheets("Data").Shapes("Roll").Name = "Roll" Then

        Sheets("Data").Cells(iRowCountShapes, 3) = "Roll"

    Else

        Sheets("Data").Cells(iRowCountShapes, 3) = "Neither"

    End If

    iRowCountShapes = iRowCountShapes + 1

Wend

End Sub

InformationsquelleAutor bigbryan | 2015-08-19

  1. 2

    Bilder in Excel können Sie obsereved Formen. Wenn Sie richtig benannt sind(mit echten Dateinamen) auf einfügen, dann kann man Durchlaufen möchte 

    Private Sub CommandButton1_Click()
Dim doc As Worksheet
Dim spe As Shape

Set doc = Worksheets(1)

For i = 1 To doc.Shapes.Count - 1
    Set spe = doc.Shapes(i)

    'for named images
    Debug.Print doc.Shapes(i).Name

    spe.Select

    'for linked images
    Debug.Print GetSourceInfo(spe)
Next

End Sub

Function GetSourceInfo(oShp As Shape) As String
    On Error GoTo Error_GetSourceInfo
    GetSourceInfo = oShp.LinkFormat.SourceFullName
    Exit Function
Error_GetSourceInfo:
   GetSourceInfo = ""
End Function

    Was in meinem Fall zeigt excel generiert imagenames:

    • Bild 1
    • Bild 2
    • Bild 3
    Danke @StefanMichev. Das Problem Ist Gelöst.

    InformationsquelleAutor Stefan Michev

  2. 3

    Bilder nicht wirklich in den Zellen, Sie sind in der Zeichnungsebene oberhalb des Arbeitsblatts. Es ist einfacher, einfach eine Schleife durch die Bilder und setzen Sie den Namen in der entsprechenden Spalte auf der Grundlage der Zelle unter der oberen linken Ecke des Bildes:

    Sub CheckImageName()
    Dim pic                   As Excel.Picture

    For Each pic In ActiveSheet.Pictures

        pic.TopLeftCell.Offset(, 2).Value2 = pic.Name
    Next pic
End Sub

    InformationsquelleAutor Rory

  3. 1

    Als erstes muss ich klarstellen, dass in meiner Welt ich tun, was immer es braucht, um die Dinge funktionieren, also hier ist meine low-level-Ansatz, um ein Objekte name.

    Ein makro aufzeichnen, kopieren Sie und fügen Sie das Objekt überall, stoppen Sie die Aufnahme. löschen Sie das eingefügte Objekt. Sehen Sie sich den code für das makro, das Sie gerade erstellt haben, und in der vba-sehen Sie den Namen des Objekts. Das makro löschen.

    InformationsquelleAutor Felix S

Schreibe einen Kommentar