Hallo liebe VBA Profis,
für eine statistische Arbeit generiere ich per Makro Grafiken. Dies mache ich mehrmals hintereinander. Um die Grafiken nicht immer manuell in ein anderes Worksheet kopieren zu müssen, wollte ich mir dafür auch ein Makro schreiben. Ich habe jedoch Probleme mit der Anordnung bzw. Zuweisung, dass eine Grafik mit einer bestimmten Größe an einen bestimmten Ort im Excel-Sheet kopiert werden soll.
In dem Sheet habe ich mir die Zellen A1:B100 auf die gewünschte Größe eingestellt. [ Sheets("Results").Columns("A:B").ColumnWidth = 57
Sheets("Results").Rows("1:100").RowHeight = 188.4 ] In diese Zellen sollen jetzt die Bilder (pro Durchlauf 2 Stück) passend eingefügt werden. In dem ersten Durchlauf sollen die Bilder in A1 und B1, in dem zweiten dann in A2 und B2 usw.
Mit dem Rekorder komme ich auf die ungefähre Größe von:
Sheets("CorrChart").ChartObjects("Price Chart").Copy
Sheets("Results").PasteSpecial Format:="Bild (PNG)", Link:=False, DisplayAsIcon _
:=False
Sheets("Results").Range("A2").Select
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.ScaleHeight 0.6239459574, msoFalse, msoScaleFromTopLeft
Es fehlt mir aber noch das automatische Anordnen in meinem Sheet. Zur Visualisierung folgender Screenshot meines Sheets:
Ich würde mich sehr freuen, wenn Ihr mir helfen könntet!
VG,
lowball
|