.
.
Let ThisComponent.CurrentController.StatusIndicator.Start($.1,0)
…
Como se pode ver acima eu coloco o (.) e continua a dar o mesmo erro mesmo retirando o(.)
alguém me pode ajudar?
o código é este:
Sub CriaBarraferramenta()
Dim barra As CommandBar, existe As Boolean
existe = False
For Each barra In CommandBars
If barra.Name <> "MINHA" Then
barra.Enabled = False
Else
existe = True
End If
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = True ' False
End With
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
If existe = False Then
.CommandBars.Add(Name:="MINHA").Visible = True 'Cria uma BF chamada MINHA
End If
.CommandBars("MINHA").Position = msoBarTop 'Posiciona a BF no topo
.CommandBars("MINHA").Left = 9999
.CommandBars("MINHA").Protection = msoBarNoMove + msoBarNoCustomize
End With
Set barra = CommandBars("MINHA")
barra.Controls.Add Type:=msoControlButton 'Adiciona um botão na BF
barra.Controls(1).Caption = "Maximiza" 'Nomeia o botão
barra.Controls(1).Style = msoButtonCaption 'Define o estilo do botão
barra.Controls(1).OnAction = "MAXIMIZA" 'Define uma ação para o botão
barra.Controls.Add Type:=msoControlButton 'Adiciona um botão na BF
barra.Controls(2).Caption = "Minimiza" 'Nomeia o botão
barra.Controls(2).Style = msoButtonCaption 'Define o estilo do botão
barra.Controls(2).OnAction = "MINIMIZA" 'Define uma ação para o botão
Let ThisComponent.CurrentController.StatusIndicator.Start($.1,0) Dionisio Rocha "
End Sub
Obrigado Olivier
Realmente a minha intenção é essa, ou seja retirara todas as barras e só ficar a minha com o minimizar e o maximizar em em baixo na barra de estado aparecer o meu nome (puro egocentrismo) mas eu tenho tudo isto e muito mais a funcionar no excel e agora virei-me para o Libreoffice devido ao pedido dum amigo e utilizei o link “Excel VBA to OpenOffice Basic Converter” para converter o vba que funciona como eu quero e comecei a verificar na conversão uma camada de erros entre os quais este que postei. No vba é fácil encontrar soluções e ajuda via DR.GOOGLE como eu tenho vontade em aprender conheces algum site que me possa ajudar a entender melhor o basic aplicado ao libreoffice?
E já agora como se monta as nossas barras e se aramazena no libreoffice?
