Ich habe ein Problem, das mich zur Verzweiflung treibt und ihr könnt mir da bestimmt helfen:
Ich habe ich Excel 2003 ein Makro geschrieben, mit dem ich in Excel per Knopfdruck ein Bild in die Zelle B7 einfügen kann. Das hat super funktioniert. Jetzt möchte ich genau das selbe Makro in Excel 2007 verwenden und es funktioniert nur noch teilweise. Es fügt mir zwar das Bild ein, jedoch nicht mehr in Zelle B7.
Kann mir irgendjemand sagen, was ich am Code ändern muss, damit er das verdammte Ding wieder richtig platziert?
Hier der Code:
Sub Bilder_einfügen()
Dim Object_ID As String
Dim Pfad_Datei As String
Dim Pfad_Bild As String
Dim Maxi As Integer
'Objektphoto_1
Sheets("Template").Range("B7").Select
Pfad_Datei = ActiveWorkbook.Path
Pfad_Bild = C:\Bilder\1.jpg"
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 327.75
Selection.ShapeRange.Width = 435.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 140#
Selection.ShapeRange.Width = 186.17
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Sheets("Template").Range("Q1").Select
Danke schonmal im Voraus & beste Grüße,
Nico