Bildlaufleiste per makro erzeugen
19.01.2005 13:38:39
Gabor
Ich habe mit dem Rekorder aufgezeichnet:
In Zelle K6 soll eine Bildlaufleiste erzeugt werden, was auch klappt aber sie ist nach Erzeugung Wirkungslos.
Ich habe während der Aufzeichnug die Eigenschaften: linkedCel = J6 und Maximum =100 gesetzt. Nach der Aufzeichnung funktionierte das auch. Jetzt habe ich die Bildlaufleiste wieder gelöscht und wollte nun das Makro testen. Es wird auch eine Leiste erzeugt aber wenn man den Regler verschiebt ändert sich der Eintrag in der gelinkten Zelle nicht.
Man kann auch nicht mehr die Eigenschaften der Bildlaufleiste ansehen oder verändern.
Hier der Code von der Aufzeichnung:
Sub bildlaufleiste()
'
' bildlaufleiste Makro
Range("L6").Select
ActiveCell.FormulaR1C1 = "=100-RC[-2]"
Range("J6").Select
ActiveCell.FormulaR1C1 = "50"
Range("K6").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ScrollBar.1", Link:=False, _
DisplayAsIcon:=False, Left:=657, Top:=65, Width:=62, Height:=13). _
Select
Application.CommandBars("Control Toolbox").Visible = False
End Sub
Eins vorweg, ist es möglich abhängig von anderen Zelleinträgen mehrere funktionierende Bildlaufleisten zu erzeugen?
Beispielswise:
steht in F6 ein Wert so erzeuge obenstehende Bildlaufleiste
steht in F7 ein Wert so erzeuge eine Bildlaufleiste unter der oberen mit den selben Eigenschaften nur ist die linkedCell jetzt J7
steht in F8 ein Wert ein Wert so erzeuge eine Bildlaufleiste unter der oberen mit den selben Eigenschaften nur ist die linkedCell jetzt J8
usw. In F stehen nach unten fortlaufende Werte, die Anzahl kann nicht vorher definiert werden, der Bereich liegt aber etwa zwischen 6 bis 20.