Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Bilder Per VBA einfügen

Betrifft: Bilder Per VBA einfügen von: Jürgen
Geschrieben am: 19.03.2016 13:50:18

Hallo Leute
Ich brauch eure Hilfe, irgendwie geht das ganze nicht mehr.
Hab einen VBA code mit dem ich Bilder aus einem Ordner im Netzwerk oder Local anhand von den Bildnamen einfügen lasse.
Das hat auch ein paar mal funktioniert.

Seit neuestem geht nichts mehr und ich find den Fehler nicht.
Ich hab eine neue Tabellenvorlagen Tabelle erstellt das den Code reinkopiert und nun funktioniert es nicht.

  • Private Sub CommandButton1_Click() ' Kantenbild einfügen
    Application.ScreenUpdating = False  'Bildschirm Aktivität ausschalten
    Dim Pfad As String, Wiederholungen As Long
    On Error Resume Next     'bei Fehler zur nächsten Zeile
    
    Const cSpalte = 26     ' Spalte Z Bilder löschen
        Dim sh As Shape
        For Each sh In ActiveSheet.Shapes
            If sh.TopLeftCell.Column = cSpalte Then sh.Delete
        Next sh
        
    Pfad = Worksheets("Deckblatt").Cells(1, 17)  'Pfad der Bilder
    For Wiederholungen = 7 To Range("AQ500").End(xlUp).Row  'Suchspalte 6=Zeile
    Cells(Wiederholungen, 26).Activate      'Einfügepunkt der Bilder
    ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 43) & ".png").Select  'Wiederholungen,  _
    43= Spalte Namen
    Next
    Range("y7").Select
    Application.ScreenUpdating = True    'Bildschirm Aktivität einschalten
    End Sub


  • Ich hoffe ihr könnt mir helfen bin schon seit 2 tagen am herumprobieren.
    anbei eine Mappe mit dem Code.

    https://www.herber.de/bbs/user/104465.xlt

    Die Bilder sind kleine PNG Dateien 50x32

    mfg
    Laser

      

    Betrifft: AW: Bilder Per VBA einfügen von: Armin
    Geschrieben am: 21.03.2016 07:31:30

    Hallo Laser,
    leider kann man keine png-Dateien importieren. Wandle sie in jpg um.

    Gruß Armin


     

    Beiträge aus den Excel-Beispielen zum Thema "Bilder Per VBA einfügen"