Herbers Excel-Forum - das Archiv

jpg importieren und zuschneiden (Bildbericht)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: jpg importieren und zuschneiden (Bildbericht)
von: de-coder

Geschrieben am: 12.02.2005 16:25:08
Moin Xperts,
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
Bild

Betrifft: AW: jpg importieren und zuschneiden (Bildbericht)
von: Josef Ehrensberger

Geschrieben am: 12.02.2005 16:49:32
Hallo ? (realnames sind hier üblich und erwünscht!)
ZB. so.
Private Sub CommandButton1_Click()
Dim varRetVal As Variant
Dim n As Integer
Dim pic As Shape
Dim X_ As Integer, Y_ As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bilddateien (*.jpg), *.jpg", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If Not IsArray(varRetVal) And varRetVal = "Falsch" Then Exit Sub
X_ = 0   'links
Y_ = 0   'oben
For n = LBound(varRetVal) To UBound(varRetVal)
ActiveSheet.Pictures.Insert varRetVal(n)
Set pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
With pic
.LockAspectRatio = msoTrue
.Height = 318.75
.Width = 425.25
.Left = X_
.Top = Y_
End With
If X_ = 0 Then
X_ = 430
Else
X_ = 0
Y_ = Y_ + 385
End If
Next
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: jpg importieren und zuschneiden (Bildbericht)
von: Ulf
Geschrieben am: 12.02.2005 17:10:44
Müßte es nicht statt .LockAspectRatio = msoTrue
.LockAspectRatio = msoFalse heißen?
Ulf
Bild

Betrifft: AW: jpg importieren und zuschneiden (Bildbericht)
von: Hans
Geschrieben am: 13.02.2005 06:11:25
@Josef: Danke, funzt gut, bis auf die Zeile
If Not IsArray(varRetVal) And varRetVal = "Falsch" Then Exit Sub
Dort kommt ne Fehlermeldung. Hab sie erstmal zum Testen ausgeblendet. Ich werkel dann mal weiter, Thx nochmal.
Hans
Bild

Betrifft: AW: jpg importieren und zuschneiden (Bildbericht)
von: Reinhard

Geschrieben am: 13.02.2005 08:34:35
Hi Hans,
normal wenn Josef ne Lösung postet stimmt die, ich habe das jetzt nur überflogen,
und bin auch zu müd zum Austesten, da die Nacht durchgemacht.
wie wärs mit
If Not IsArray(varRetVal) And varRetVal = false Then Exit Sub
andrerseits wenn Josef schreibt "Falsch" *grübel* wird da was richtiges dran sein
Naja, nur ne Idee, Frage wieder auf noch offen gestellt
Gruß
Reinhard
Bild

Betrifft: jpg importieren und zuschneiden (Bildbericht)
von: Beate Schmitz

Geschrieben am: 12.02.2005 20:53:29
Hallo Decoder,
vielleicht ist das Tool Grabzilla (Freeware) was für dich, damit kann man einfach Screenshots anfertigen und für Excel-Arbeiten Handbücher anfertigen:
http://www.excel-center.de/foren/file.php?2,file=696
Gruß,
Beate
Bild

Betrifft: AW: jpg importieren und zuschneiden (Bildbericht)
von: Hans
Geschrieben am: 13.02.2005 06:12:50
Danke Beate, aber das war nicht das, was ich wollte. Hab mir das Prog aber angeschaut - es ist recht nützlich.
Gruß Hans
 Bild
Excel-Beispiele zum Thema "jpg importieren und zuschneiden (Bildbericht)"
Textdatei in Tabellenblatt importieren Textdatei nach Begriff durchsuchen und Fundzeile importieren
Diagramm exportieren und in Tabellenblatt importieren Suchbegriffe in UserForm eingeben, Fundstelle importieren
Benannte Bereich aus mehreren Arbeitsmappen importieren Textdatei mit 250.000 Zeilen anlegen und importieren
Name und Vorname suchen, Werte und Fundstellen importieren Grafik importieren und in Zelle zentrieren
Arbeitsblatt aus einer anderen Arbeitsmappe importieren Textdatei über QueryTables importieren