Thema Datum  Von Nutzer Rating
Antwort
27.07.2023 16:45:30 Gast20230727
NotSolved
Blau Excel - Bilder einfügen per Pfad
 27.07.2023 19:48:25 xlKing
*****
NotSolved
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:
xlKing		 Datum:
27.07.2023 19:48:25		 Views:
356		 Rating:
     
Antwort:
  Ja
Thema:
Excel - Bilder einfügen per Pfad

Hallo,

bin mir nicht sicher, was du mit vertauscht meinst. Du kannst natürlich immer nur das erste Bild Shopfoto nennen. Das zweite Bild muss dann Shopfoto2 usw. oder ganz anders heißen. Wenn du in deiner For-Schleife dich unten also immer auf Shopfoto beziehst, wird logischerweise immer das erste Bild in den Zeilen verschoben. Am Besten du verzichtest auf die Name-Eigenschaft und machst das alles in nur einem With-Block.

Ungetestet etwa so:

Sub Bild_EinfügenX()

'Bild löschen, falls vorhanden
On Error Resume Next
Tabelle1.Shapes("Shopfoto").Delete
On Error GoTo 0

Dim i As Integer

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

    'Existiert die Bilddatei?
    If Tabelle1.Cells(i, 2).Value <> "" Then

        '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

    Else: Tabelle1.Cells(i, 1).Value = "X"

End If

Next i

End Sub

Wenn du unbedingt noch Name mit reinnehmen willst dann mach .Name = "Shopfoto" & i

Gruß Mr. K.

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