Thema Datum  Von Nutzer Rating
Antwort
27.07.2023 16:45:30 Gast20230727
NotSolved
27.07.2023 19:48:25 xlKing
*****
NotSolved
Rot Excel - Bilder einfügen per Pfad
 01.08.2023 13:00:10 Gast69487
NotSolved
01.08.2023 16:31:47 Gast49799
*****
NotSolved
03.08.2023 16:40:29 Gast80921
Solved

Ansicht des Beitrags:
Von:
Gast69487		 Datum:
01.08.2023 13:00:10		 Views:
330		 Rating:
     
Antwort:
  Ja
Thema:
Excel - Bilder einfügen per Pfad

Hallo xlKing,

 

vielen Dank für den Hinweis und bitte entschuldige die späte Rückmeldung.

Wie von dir Beschrieben lag mein Fehler beim sich wiederholdenen Bildnamen. Diesen wollte ich verwenden um die alten Bilder automatisch zu löschen. Das habe ich jetzt anders gelöst, wie unten ersichtlich ist.

Das Makro funktioniert soweit. Ich würde jetzt gerne noch für jeden Pfad der nicht gefunden wird ein "X" als Information hinterlegen, analog der Wennfehler-Formel im Excel, anstatt der Funktion "On Error Resume Next". Gibt es dazu eine Lösung?

 

Sub Bild_Einfügen()

'**********************************************
'Bilder aus einem bestimmten Bereich löschen
Dim rngPic As Range
Dim pic As Picture

Set rngPic = Range("A4:A1000")

For Each pic In ActiveSheet.Pictures
Debug.Print pic.Name; vbTab; pic.TopLeftCell.Address
If Not Intersect(pic.TopLeftCell, rngPic) Is Nothing Then
pic.Delete
End If
Next pic
'**********************************************

'**********************************************
'Bilder aus einem bestimmten Bereich löschen
Tabelle1.Range("A4:A1000").Select
Selection.ClearContents
'**********************************************

Dim i As Integer

'For-Schleife für alle Zeilen
For i = 4 To 1000

    'Zeile befüllt?
    If Tabelle1.Cells(i, 2).Value <> "" Then
    
    On Error Resume Next
    
        'Bild einfügen
        With Tabelle1.Pictures.Insert(Tabelle1.Cells(i, 2).Value)
            .Height = 65
            .Top = Tabelle1.Cells(i, 1).Top
            .Left = Tabelle1.Cells(i, 1).Left
            .Placement = xlMoveAndSize
        End With
        
        On Error GoTo 0

    End If

Next i

End Sub

 

Gruß Gast 20230727

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:



  • 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
27.07.2023 16:45:30 Gast20230727
NotSolved
27.07.2023 19:48:25 xlKing
*****
NotSolved
Rot Excel - Bilder einfügen per Pfad
 01.08.2023 13:00:10 Gast69487
NotSolved
01.08.2023 16:31:47 Gast49799
*****
NotSolved
03.08.2023 16:40:29 Gast80921
Solved