Servus hab da nen kleine problem ,)
kann mir wer erklären wie ich das am besten acmhe nen bild automatisch einzufügen dann auf ne bestimmte grösse zu skalieren und an ne bestimmte position zu bringen?
es müssen 3 bilder eingefügt werden die untereinander dann sind…
wenn ich
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 = 8 '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
beutze was ich hier im forum gefunden hab klappt das super mit dem einfügen und auf grösse skalieren jedoch wenn ich das nächste bild einfügen will legt er das über des selbe.
habe 3 grafikfelder quasi vorgegeben wo die grafiken hinmüssen in dem ich die zellen verbunden habe miteinander
bitte idioten sicher bin nicht so fit da drin ,)
danke im vorraus