< návrat zpět

MS Excel


Téma: Zmena maximum value u Scrollbar rss

Zaslal/a icon 7.5.2014 21:51

Ahoj, základ kódu získaný za pomoci záznamníka makra:Sub Macro1()
ActiveSheet.Shapes.Range(Array("Scroll Bar 1")).Select
With Selection
' .Value = 20
' .Min = 0
.Max = 400
' .SmallChange = 1
' .LargeChange = 10
' .LinkedCell = ""
' .Display3DShading = True
End With
End Sub

U daného objektu (ovládací prvok formulára - posuvník, vložený priamo do listu), potrebujem programovo meniť hodnotu rozsahu do (t.j. tú vlastnosť max). Vedel by mi niekto poradiť, ako na to? Chcel by som to za pomoci načítania toho tvaru do nejakej objektovej premennej aby som sa vyhol príkazu select...

Zaslat odpověď >

icon #019348
avatar
Už to mám, som blbý 7 , bolo potrebné nahradiť kolekciu Shapes za Scrollbars, takto: With Sheet15
' With .Shapes("OverviewScrollBarVertical")
With .ScrollBars("OverviewScrollBarVertical")
Select Case Sheet16.Range("OverviewTypeOfData")
Case 1, 4, 5, 6
Select Case [OverviewWayOfView]
Case 1, 2: .Left = [Q17].Left + 5
Case Else: .Left = [O17].Left + 5
End Select
Case Else: .Left = [L17].Left + 5
End Select
Select Case Sheet16.Range("OverviewLevelOfDetail")
Case 1, 2
.Visible = msoFalse
[OverviewScrollBarVerticalValue] = 1
Case Else
.Visible = msoTrue
.Max = [PT1rng].Rows.Count - 34 'xxx s týmto som mal problém
End Select
End With
End With
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09