Office: VBA Bilder Einfügen ändern von 2003 auf 2010

Hallo,

nachdem sich ja einige Befehle geändert haben, hab ich mal versuch einen Code an die neue Version anzupassen, funktioniert aber leider nicht.

Dieser Code funktioniert in beiden Versionen, leider werden in 2010 aber nur noch Verknüpfungen eingefügt:

If ausrichtung = 1 Then
ActiveSheet.Pictures.Insert(Dateipfad & Cells(i, txtArtikel) & Dateiformat).Select
Selection.Left = Cells(i, txtBilder).Left
Selection.Top = Cells(i, txtBilder).Top
ElseIf ausrichtung = 2 Then
ActiveSheet.Pictures.Insert(Dateipfad & Cells(txtArtikel, i) & Dateiformat).Select
Selection.Left = Cells(txtBilder, i).Left
Selection.Top = Cells(txtBilder, i).Top
End If

Also hab ich es wie folgt geändert:

If ausrichtung = 1 Then
ActiveSheet.Shapes.AddPicture((Dateipfad & Cells(i, txtArtikel) & Dateiformat), False, True, poss, posz, 99, 74).Select
Selection.Left = Cells(i, txtBilder).Left
Selection.Top = Cells(i, txtBilder).Top
ElseIf ausrichtung = 2 Then
ActiveSheet.Shapes.AddPicture((Dateipfad & Cells(i, txtArtikel) & Dateiformat), False, True, poss, posz, 99, 74).Select
Selection.Left = Cells(txtBilder, i).Left
Selection.Top = Cells(txtBilder, i).Top
End If

Für Tips bin ich wie immer dankbar.

 

Hi,

also bei mir (Excel2010) funktioniert dieser prinzipielle Code:

Code:

   With ActiveSheet.Pictures.Insert("C:\Users\Pictures\benutzerskripte.PNG")
      .Left = Cells(5, 5).Left
      .Top = Cells(5, 6).Top
   End With

Bis später,
Karin

 

Hallo,

es dürfte aber kein Bild mehr angezeigt werden, wenn C:\Users\Pictures\benutzerskripte.PNG nicht mehr da ist, weil es eben nur ein Verknüpfung ist.

Da ich die Excel-Dateien per E-Mail verschicken muss, müssen wie vorher auch die Bilder in die Exceldatei.

 

Hi,

sorry, verstehe deinen Beitrag leider nicht - mit meinem Code werden die Bilder "körperlich" und nicht als Verknüpfungen ins Tabellenblatt eingefügt.

Bis später,
Karin

 

Hab deinen Code grade mal ausprobiert, ist bei mir definitiv nur ein verknüpftes Bild. Wenn ich die Bilddatei lösche, wir es auch in Excel nicht mehr angezeigt.

 

So, Shapes.AddPicture fügt jetzt erfolgreich ein Bild ein.

Das Einzige was mir noch fehlt, ist das der Shapes.AddPicture nur das Bild der ersten Zeile einfügt, der alte Pictures.Insert fügt in allen Zeilen die entsprechenden Bilder ein.

 

If ausrichtung = 1 Then
ActiveSheet.Shapes.AddPicture((Dateipfad & Cells(txtArtikel, i) & Dateiformat), False, True, -1, -1, -1, -1).Select
Selection.Left = Cells(i, txtBilder).Left
Selection.Top = Cells(i, txtBilder).Top
ElseIf ausrichtung = 2 Then
ActiveSheet.Shapes.AddPicture((Dateipfad & Cells(txtArtikel, i) & Dateiformat), False, True, -1, -1, -1, -1).Select
Selection.Left = Cells(txtBilder, i).Left
Selection.Top = Cells(txtBilder, i).Top
End If