Clever-Excel-Forum - Bilder einfügen mit VBA

Hallo zusammen,

ich möchte in einem Tabellenblatt Bilder einfügen, wenn bestimmte Bedingungen erfüllt sind.
Dies habe ich wie folgt realisiert:

Code:
Sub Bilder_aktualisieren()

Application.ScreenUpdating = False

Dim i As Integer

For i = 2 To 8

If Cells(i, 10) >= 0.95 Then

   Cells(i, 2) = Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\1.gif").Select

ElseIf Cells(i, 10).Value >= 0.65 Then

   Cells(i, 2).Select

   Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\2.gif").Select

Else

   Cells(i, 2).Select

   Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\3.gif").Select

End If

   Next i

   Application.EnableEvents = True

End Sub

Dies funktioniert auch soweit. Nun möchte ich die Bilder der Zellgröße anpassen und die alten vorhandenen Bilder müssen gelöscht werden.
Könnt ihr mir hier eventuell weiterhelfen?

Danke und LG Mario

Hallo zusammen,

habe das passende im Forum gefunden.
Hier gibt es ein super Beispiel von Uwe Küster. In diesem wird gut beschrieben wie man eine Grafik in einer Zelle ausrichtet.
Danke an euch alle für die Zahlreichen guten Beiträge und für die Hilfe.
Man kann wirklich viel lernen durch euch :23: .

Ein schönes Wochenende euch allen,

LG Mario

Code:
Sub Bilder_aktualisieren()

Application.ScreenUpdating = False

Dim i As Integer

Dim vSel As Variant

Dim rngZ As Range

Worksheets("Tabelle1").Pictures.Delete

For i = 2 To 7

If Cells(i, 10) >= 0.95 Then

Cells(i, 2).Select

Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\1.gif").Select

Set vSel = Selection

  If VarType(vSel) = vbObject Then

    With vSel

      Set rngZ = .TopLeftCell

      .Top = rngZ.Top + (rngZ.Height - .Height) / 2

      .Left = rngZ.Left + (rngZ.Width - .Width) / 3

      .ShapeRange.LockAspectRatio = -1

      .Placement = xlMoveAndSize

      .PrintObject = True

    End With

    rngZ.Select

  End If

ElseIf Cells(i, 10).Value >= 0.65 Then

   Cells(i, 2).Select

   Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\2.gif").Select

Set vSel = Selection

  If VarType(vSel) = vbObject Then

    With vSel

      Set rngZ = .TopLeftCell

      .Top = rngZ.Top + (rngZ.Height - .Height) / 2

      .Left = rngZ.Left + (rngZ.Width - .Width) / 3

      .ShapeRange.LockAspectRatio = -1

      .Placement = xlMoveAndSize

      .PrintObject = True

    End With

    rngZ.Select

  End If

Else

   Cells(i, 2).Select

   Worksheets("Tabelle1").Pictures.Insert("C:\Users\Mario\Desktop\Bilder\3.gif").Select

  Set vSel = Selection

  If VarType(vSel) = vbObject Then

    With vSel

      Set rngZ = .TopLeftCell

      .Top = rngZ.Top + (rngZ.Height - .Height) / 2

      .Left = rngZ.Left + (rngZ.Width - .Width) / 3

      .ShapeRange.LockAspectRatio = -1

      .Placement = xlMoveAndSize

      .PrintObject = True

    End With

    rngZ.Select

  End If

End If

   Next i

Cells(1, 15).Select

   Application.EnableEvents = True

End Sub