jpg importieren und zuschneiden (Bildbericht)
12.02.2005 16:25:08
de-coder
Hintergrund: ich möchte einen Bildbericht über Excel entwerfen, der 2 Fotos pro Seite hat und eine Erläuterung unter den Bildern. Die Menge der Bilder soll frei wählbar sein. Ziel ist ein Ausdruck A4 mit Vorblatt.
Stand:
-----------------------------------------------
Private Sub CommandButton1_Click()
Dim varRetVal As Variant
Dim n As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bilddateien (*.jpg), *.jpg", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If IsArray(varRetVal) Then
On Error Resume Next
For n = LBound(varRetVal) To UBound(varRetVal)
ActiveSheet.Pictures.Insert varRetVal(n)
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 318.75
Selection.ShapeRange.Width = 425.25
Selection.ShapeRange.Rotation = 0#
Next
On Error GoTo 0
End If
End Sub
----------------------------------------------
Ich kann bereits mehrere Bilder importieren, möchte diese aber auf 10x15 cm (ca.) zuschneiden lassen. Im Bereich selection.shape passiert dies, aber ich habe nichts selectiert.
Denn: ActiveSheet.Pictures.Insert varRetVal(n).Select
funktioniert nicht.
Wie kann ich importieren und gleich zuscheiden lassen UND kann ich die Bilder an eine bestimmte Zelle anbinden (Position auf A4 Ausdruck) ?
Danke für Antworten
De-coder