Pergunte aqui
1

ao compilar dá erro de sintaxe do basic simbolo previsto: $.

perguntadas 2017-08-23 11:50:57 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

. . 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 "https://www.business-spreadsheets.com..." 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?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

@daor, precisamos ver o resto do código para entender o que vc que está querendo. Por favor, edite o campo detalhe da sua pergunta e insira o código completo.

imagem do gravatar de GrafenoGrafeno ( 2017-08-23 23:19:37 +0200 )editar

´já inseri o código

imagem do gravatar de daordaor ( 2017-08-24 11:37:02 +0200 )editar

Lembro-me que apaguei centenas de linhas de VBA num serviço que prestei, por que montavam barras de ferramentas no Excel. Nos arquivo ODF do LibreOffice, as barras de ferramentas podem ser armazenadas dentro no arquivo, bastando fazê-las uma só vez e salvar. Seria este seu caso?

imagem do gravatar de OlivierOlivier ( 2017-08-24 11:59:34 +0200 )editar

1 Resposta

0

respondidas 2017-08-24 12:36:23 +0200

imagem do gravatar de Olivier

Para montar a barra de ferramenta no seu arquivo, vá em Ferramentas - Personalizar aba Barra de ferramentas. Clique no botão Novo e dê um nome para sua barra. No campo Salvar em escolha o seu arquivo (Figura).

Descrição da imagem

Para literatura sobre macros no LibreOffice navegue pela página http://documentation.libreoffice.org/...

Para compatibilidade parcial com macros de VBA, veja esta página da Ajuda: https://helponline.libreoffice.org/5....

editar assinalar como ofensivo Excluir Link mais

Comentários

Mestre Olivier

Os meus agradecimentos pelo que postou vou já começar a experimentar e depois darei noticias. Muito obrigado

"UM BOM MESTRE ENSINA O APRENDIZ E NÃO FAZ O SERVIÇO DO APRENDIZ"

imagem do gravatar de daordaor ( 2017-08-24 12:50:24 +0200 )editar

Ola @daor, veja estas matérias publicadas na Revista LibreOffice Magazine http://www.schiavinatto.com/mundolibr... e http://www.schiavinatto.com/mundolibr...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-08-27 05:02:44 +0200 )editar

Obrigado!!!

imagem do gravatar de daordaor ( 2017-08-28 16:24:12 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-08-23 11:50:57 +0200

Lidas: 223 vezes

Última atualização: Aug 24 '17