erstellte Buttons rutschen hoch ?!
11.02.2005 15:15:28
Jonny
ich habe folgendes Dilemma:
Ich erstelle mittels Buttons (A) andere Buttons (B), die genau eine Spalte rechts und eine Zeile tiefer sein sollen.
Mein code:
With ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, 1)
Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
btn.Caption = "Zeile löschen"
btn.OnAction = "Best_Zeilen_Löschen"
btn.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromBottomRight
btn.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromBottomRight
btn.Name = "Löschbutton"
End With
Nun hab ich das Problem, dass die erstellten Buttons B um ein kleines bißchen hochrutschen, je tiefer der Button A liegt.
D.h. konkret. Bei Button A-1 (liegt ganz oben)...ist keine Abweichung vorhanden.
Bei Button A-30(ganz unten) ist Button B in die selbe Zeile geruscht.
Schema :
Button A-1
Button B
.
.
.
Button A-30 Button B
Was kann ich tun?!