Shape mit .Left & .Top richtig platzieren
Larsînator
Ich möchte einen Pfeil auf einem Blatt platzieren - nehmen wir mal an mittig in cells(80,1).
Nachdem ich kürzlich die Frage hier gestellt und dann der Meinung war, dass ich ja einfach alle Zeilenhöhen und -breiten summieren kann (dann hab ich die Parameter für den Pfeil), hab ich die Frage gleich wieder geschlossen.
So weit, so gut, geht aber nur mit starker Unschärfe. Je weiter weg vom Ursprung, desto mehr verschiebt sich der Pfeil von der erwarteten Position weg. Unten mal ein vereinfachtes Beispiel, das eigentlich einen Pfeil UNTER jede Zelle setzen sollte.
Hat da jemand eine Idee, woran das liegen könnte?
Danke für jeden Tipp!
intPosTop = 0
intPosLeft = 50
For intRowNumb = 1 To 80
intPosTop = intPosTop + Rows(intRowNumb).Height
Shapes("Pfeil").Copy: ActiveSheet.Paste
Selection.Left = intPosLeft
Selection.Top = intPosTop
Next intRowNumb