Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

erstellte Buttons rutschen hoch ?!

erstellte Buttons rutschen hoch ?!
11.02.2005 15:15:28
Jonny
Hi zusammen,
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?!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erstellte Buttons rutschen hoch ?!
Udo
Stell in den Eigenschaften ein: Von Zellgröße und Position unabhängig.
Udo
AW: erstellte Buttons rutschen hoch ?!
11.02.2005 15:18:24
Jonny
Wie mach ich das?! konkret!?
AW: erstellte Buttons rutschen hoch ?!
Udo
Button mit rechter Maustaste klicken, Steuerelement formatieren|Eigenschaften.
Udo
AW: erstellte Buttons rutschen hoch ?!
11.02.2005 15:24:53
Jonny
Ich hab die zu erstellenden Buttons mit den Eigenschaften versehen, dennoch rutschen diese hoch!?
Keine weitere Idee oT
Udo
oT
Prob gelöst
11.02.2005 16:25:45
Jonny
Zur Info, ich habe das Problem mit dieser zeile behoben...
btn.Top = ActiveSheet.Rows(zeile).Top
danke für deine Mühen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige