hab ein Makro gebastelt, welches ein Dialogfenster öffnet, indem ich ein Bild auswählen kann. Dieses lädt es dann in mein Excel-Sheet und passt erstens die Größe automatisch und zweitens die Position an. Das funktioniert wunderbar:
Code: Alles auswählen
Option Explicit
'Bild einfügen, welches eine definierte Größe bekommt
Sub GrafikFesteGrößeEinfügen()
Dim douWunschHoehe As Double
Dim douWunschBreite As Double
Dim douNeueHoehe As Double
Dim douNeueBreite As Double
Dim varBild As Variant
Dim org_höhe As Double, org_breite As Double
'hier Wunschhoehe in cm eintragen
douWunschHoehe = 23.9
'hier Wunschbreite angeben
douWunschBreite = 17.5
varBild = Application.GetOpenFilename("Bilddateien,*.*", MultiSelect:=False)
If varBild <> 0 Then
On Error GoTo fehlerbehandlung
ActiveSheet.Pictures.Insert(varBild).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
On Error GoTo 0
org_höhe = Selection.ShapeRange.Height
org_breite = Selection.ShapeRange.Width
douNeueHoehe = Application.CentimetersToPoints(douWunschHoehe)
douNeueBreite = Application.CentimetersToPoints(douWunschBreite)
Selection.ShapeRange.Height = douNeueHoehe
Selection.ShapeRange.Width = douNeueBreite
Selection.Left = 0
Selection.Top = 0
End If
Exit Sub
'Fehlermeldung
fehlerbehandlung:
If Err.Number = 1004 Then MsgBox "Fehler beim Einfügen der Grafik!" _
& Chr(13) & Chr(13) & "Wahrscheinlich kein lesbares Grafikformat"
Exit Sub
End Sub
Kann mir da jemand weiterhelfen?
Gruß und Danke schonmal
