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

Ansicht des Beitrags:
Von:
Gast80921		 Datum:
03.08.2023 16:40:29		 Views:
332		 Rating:
     
Antwort:
 Nein
Thema:
Excel - Bilder einfügen per Pfad

Vielen Dank für deine Hilfe, jetzt funktionert alles wie gewünscht :)

Ich habe mich für die zweite Variante entschieden. Das Ergebnis ist wie folgt:



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
'**********************************************

'**********************************************
'Zell-Inhalte aus einem bestimmten Bereich löschen
Tabelle1.Range("A4:A1000").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
    
    'Pfad nicht vorhanden
    If Dir$(Tabelle1.Cells(i, 2).Value) = "" Then
    Tabelle1.Cells(i, 1).Value = "X"
 
    Else 'Bild einfügen
        With Tabelle1.Pictures.Insert(Tabelle1.Cells(i, 2).Value)
            .Height = 60
            .Top = Tabelle1.Cells(i, 1).Top + (Tabelle1.Cells(i, 1).Height - .Height) / 2
            .Left = Tabelle1.Cells(i, 1).Left + (Tabelle1.Cells(i, 1).Width - .Width) / 2
            .Placement = xlMoveAndSize
        End With
        
    End If

    End If

Next i

End Sub

 

Gruß,

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
01.08.2023 13:00:10 Gast69487
NotSolved
01.08.2023 16:31:47 Gast49799
*****
NotSolved
Rot Excel - Bilder einfügen per Pfad
 03.08.2023 16:40:29 Gast80921
Solved