Hello Ariel,
I found my mistake. I should not set value as a string, it is an Object. So,
this code works :)
If nIndex >= 0 Then
Dim oToolBarButton() As Object
Dim nToolBarButtonCount As Integer
Dim j As Integer
oToolBarButton() = oToolbarSettings.getByIndex(
>
> nIndex)
> nToolBarButtonCount = ubound(oToolBarButton())
> for j = 0 to nToolBarButtonCount
> If oToolBarButton(j).Name = "IsVisible" Then
> oToolBarButton(j).Value = false
> End If
> next j
> oToolbarSettings.replaceByIndex(nIndex, oToolBarButton())
> If bCreate Then
> oUIConfigurationManager.insertSettings(sResourceURL,
> oToolbarSettings)
> Else
> oUIConfigurationManager.replaceSettings(sResourceURL,
> oToolbarSettings)
> End If
> 'make changes persist at the doc storage, NOT globally!!!
> oUIConfigurationManager.store()
> End If
--
--
.''`. With best regards,
: :' : Alexander Anisimov
`. `' JID [email protected]
`- Debian - when you have better things to do than fixing systems
