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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Como tornar "Formas" em objectos flutuantes
Re: Como tornar "Formas" em objectos flutuantes
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.
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.
Re: Como tornar "Formas" em objectos flutuantes
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.
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
Re: Como tornar "Formas" em objectos flutuantes
LRMud,
O código é esse:
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.
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