Hallo,
wie kann man am Besten Fotos in Excel einfügen? Wenn man einfach über „bild einfügen“ geht, werden die Fotos in originalgröße eingefügt. Gibt es eine Möglichkeit, dass sie gleich mit einer Höhe von z.B. 5cm eingefügt werden?
Gruß Sebastian
Hallo Sebastian,
die Funktion in excel kenne ich nicht. Du kannst aber mit einigen Bildbearbeitungsprogrammen ein Makro erstellen bzw benutzen, in dem du die Höhe der Bilder genau vorgibst. Damit hast du dir dann Zeit gespart, um mühsam alle Bilder per Hand in die passende Größe zu bekommen.
Hoffe, dass ich durch die Antwort ein wenig helfen konnte
Gruß
Sabine
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Sabine,
vielen Dank für deine Antwort. Mein Ziel ist es eigentlich die Bilder vorher nicht bearbeiten zu müssen, daher hilft mir das auch nicht richtig weiter.
Hallo,
hoffentlich kommt die Antwort nicht zu spät und meine Lösung hilft auch weiter.
Habe ein Makro geschrieben, das das Öffnen-Menü aufruft, eine Grafik einfügt und die Bildgröße auf einen voreingestellten Wert verändert bei Beibehaltung des Seitenverhältnisses. Das Originalbild wird hierbei nicht verändert. Das Makro hat die gleiche Funktion wie die Größenveränderung über das Eigenschaftenmenü der Grafik und hat keinen Einfluß auf das Originalbild.
Hier der Makro-Code für eine vorgegebene Höhe des Bildes:
_Sub GrafikFesteGrößeEinfügen()
Dim WunschhöheCM As Double
Dim neueHöhe As Double
Dim bild As Variant
Dim org_höhe As Double, org_breite As Double
WunschhöheCM = 5 'hier Zielhöhe in cm eingeben
'oder alternativ : WunschhöheCM = InputBox („Welche Höhe soll das Bild haben?“)
bild = Application.GetOpenFilename(„Bilddateien,*.*“)
If bild 0 Then
On Error GoTo fehlerbehandlung
ActiveSheet.Pictures.Insert(bild).Select
On Error GoTo 0
org_höhe = Selection.ShapeRange.Height
org_breite = Selection.ShapeRange.Width
neueHöhe = Application.CentimetersToPoints(WunschhöheCM)
Selection.ShapeRange.Height = neueHöhe
Selection.ShapeRange.Width = org_breite * neueHöhe / org_höhe
End If
Exit Sub
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_
Soll die Breite anstelle der Höhe voreingestellt werden, muß das Makro entsprechend angepaßt werden.
Das Makro am besten über eine Schaltfläche in eine Symbolleiste einbinden.
Viele Grüße
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]