Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Como tornar "Formas" em objectos flutuantes

Dúvidas gerais sobre Excel
LRMud
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Dom Mai 17, 2020 5:50 pm

Como tornar "Formas" em objectos flutuantes

Mensagem por LRMud »

Bom Dia
Tenho diversas "formas" a servirem de botões que me possibilitam andar de folha em folha, estilo menu lateral esquerdo.
Essa folha também tem painéis fixos, que me ajudam a controlar a informação que tem de estar sempre visível.
Ao rolar a página para baixo, as formas que servem de menu também rolam.
Existe alguma forma destes botões de menu serem flutuantes e ficarem sempre visiveis para o utilizador?

Em anexo coloco um exemplo

Obrigado pela ajuda
Anexos
Livro1.rar
(11.22 KiB) Baixado 222 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Como tornar "Formas" em objectos flutuantes

Mensagem por webmaster »

LRMud,

Até onde sei, não é possível da maneira que quer. O que recomendo é colocá-los todos na primeira linha e congelá-la para que os botões de opção fiquem disponíveis o tempo todo.


LRMud
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Dom Mai 17, 2020 5:50 pm

Re: Como tornar "Formas" em objectos flutuantes

Mensagem por LRMud »

Consegui obter ajuda para resolver o meu problema e deixo aqui um exemplo que como se fazer.
Temos de ter o cuidado porque se for feito para um zoom de 100%, se alterarmos o Zoom, os botões vão se desorganizar
Para decidir onde ficar o botão, conta-se as linhas a partir do fim do ecrã, depois é necessário fazer pequenos ajustes com as teclas de setas.
Se alguem conseguir uma forma de se conseguir usar o Zomm sem desfazer o alinhamento, é um bom upgrade.
Anexos
Livro1.rar
(12.5 KiB) Baixado 214 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Como tornar "Formas" em objectos flutuantes

Mensagem por webmaster »

LRMud,

O código é esse:

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lgLIN As Long, shFIGURE As Object
'BOTÃO INICIO
Set shFIGURE = ActiveSheet.Shapes("Botao_Inicio")

With ActiveWindow.VisibleRange
    lgLIN = .Row + .Rows.Count - 28
End With

With shFIGURE
    shFIGURE.Top = shFIGURE.Top + (lgLIN - .BottomRightCell.Row) * .BottomRightCell.RowHeight
End With

End Sub
Fuciona, mas os botões estão sendo reposicionados quase que o tempo todo. Matenho minha sugestão cima, já que ela utiliza uma funcionalidade padrão do Excel.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder