Hallo !
Ich habe ein großes Problem:
Habe mit dem Makrorekorder das Einfügen eines Bildes (Grafik) erstellt (siehe Code). Wenn ich das Makro ausführe wird das Bild ganz wo anders positioniert als ich bei der Aufnahme festgelegt habe.
Was kann ich dagegen machen?
(Hab das Bild eingefügt- die Größe verändert und dann zur gewünschten Position verschoben)
Vielen Dank für Eure Hilfe
Grüße
Anita
'
' Makro1 Makro
' Makro am 06.09.2005 von Anita aufgezeichnet
'
' Tastenkombination: Strg+a
'
ActiveSheet.Pictures.Insert( _
"C:\Kricon\Prozessdaten\Bilderdownload\Kundenbilder\Hauswirth\Jheringgasse 19.JPG" _
).Select
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)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 523.5
Selection.ShapeRange.Width = 985.5
Selection.ShapeRange.Rotation = 0#
ActiveWindow.Zoom = 50
ActiveWindow.Zoom = 40
Selection.ShapeRange.IncrementLeft 82.5
Selection.ShapeRange.IncrementTop 95.25
End Sub