Letztes Shape ansteuern
28.03.2018 14:33:27
Alfred
mit meinen Messungen erhalte ich mehrere Tausend Daten, die ich auswerte und sortiere.
Anschließend sollen zusammenhängende Messungen visualisiert werden. Jeweils zusammenhängende Datenblöcke sind vom nächsten Datenblock durch ein Leerzeichen getrennt. Ich habe (mit Tipps aus dem Forum) ein makro geschrieben, dass diese Blöcke automatisch ausliest und als Grafik visualisiert.
Es sind jedoch im schlimmsten/besten Fall mehrere hundert Datenblöcke und ich würde gerne die neu erstelle Grafik in etwa neben den entsprechenden Datenblock platzieren. Derzeit werden sie alle aufeinander gestapelt. Die letzte Grafik ganz oben.
https://www.herber.de/bbs/user/120736.jpg
Mein derzeitiger Code sieht so aus:
Sub Makro1()
Application.ScreenUpdating = False
Sheets(Sheets.Count).Select
'Deklarationsbereich
Dim Zähler As Long
Dim iZeile As Long
jZeile = 3
iZeile = ActiveSheet.UsedRange.Rows.Count
For Each ar In Range("E:F").SpecialCells(2).Areas 'ar ist ein Range
' ar.Select
' Selection.Copy
' ar.Offset(0, 10).Select
' ActiveSheet.Paste
ar.Offset(0, 5).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=ar
ActiveSheet.Shapes(Shapes.Count).IncrementLeft 3
ActiveSheet.Shapes(Shapes.Count).IncrementTop -150.75
Next ar
Application.ScreenUpdating = True
MsgBox ("Ihre Daten wurden visualisiert.")
End Sub
Der Teil mit Shapes(Shapes.Count) war einfach nur ein Versuch. Hat aber leider nicht geklappt. Meine konkreten Fragen:1. Wie kann ich das letzte erzeugte Shape ansteuern.
2. Wie kann ich automatisch, das auf höhe der zugehörigen Range platzieren.
Brauche keinen fertigen Code. Ein paar Hilfestellungen wären schon hilfreich.
Vielen Dank schon mal.
Grüße Alfred