MS Excel

Téma: Zmena maximum value u Scrollbar

Zaslal/a

AL 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ěď >

AL(7.5.2014 22:20)#019348

Už to mám, som blbý

, 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 Withcitovat

Téma: Zmena maximum value u Scrollbar

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje