Página 1 de 1

AJUSTE RESOLUÇÃO TELA

Enviado: 31 Jul 2019 às 14:49
por marcowiskhy
Boa tarde senhores,

Tenho uma planilha que será rodada em computadores com resolução de 1920 x 1080 e 1600x900, existe alguma macro onde a planilha possa se ajustar automaticamente sem perder as propriedades das células quando o usuário abrir?

Re: AJUSTE RESOLUÇÃO TELA

Enviado: 31 Jul 2019 às 23:20
por Pegorini
sim.
Código: Selecionar todos
Private Sub Workbook_Open()

'Redimencionar tela

    With Application
    
        .WindowState = xlNormal
        .Top = 26
        .Left = 355
        .Height = 400 'Altura
        .Width = 750 'Largura
        
    End With

end sub

AJUSTE RESOLUÇÃO TELA

Enviado: 01 Ago 2019 às 10:13
por marcowiskhy
Pegorini, obrigado pela resposta, sua fórmula deixa a plataforma enxuta, o que torna viável abrir a mesma janela em resoluções diferentes. Mas a planilha que estou fazendo é em formato de sistema, ou seja, tela cheia e demais recursos de edição do excel desabilitado, então a elaboração da planilha foi realizada em modo de tela cheia. Esta fórmula exata não atenderia muito bem, mas obrigado pela sugestão.

Re: AJUSTE RESOLUÇÃO TELA

Enviado: 01 Ago 2019 às 12:13
por Pegorini
Não sei se entendi.

Queres que a tela seja maximizada?


se sim, então:

Application.WindowState = xlMaximized

AJUSTE RESOLUÇÃO TELA

Enviado: 01 Ago 2019 às 15:47
por marcowiskhy
Consegui aqui, não era bem maximizar, mas sim deixar a planilha na mesma proporção mesmo que seja aberta em computadores com resoluções diferentes. Apliquei esta fórmula:

Private Sub Worksheet_Activate()
Dim rngSelection As Range
Dim lRow As Long
Dim lCol As Long

If TypeName(Selection) = "Range" Then Set rngSelection = Selection
With ActiveWindow
lRow = .ScrollRow
lCol = .ScrollColumn
.ScrollRow = 1
.ScrollColumn = 1
ActiveSheet.Range("A1:AB42").Select
.Zoom = True
.ScrollRow = lRow
.ScrollColumn = lCol
End With

If Not rngSelection Is Nothing Then
rngSelection.Select
Set rngSelection = Nothing
End If
End Sub

Foi a mais próxima que consegui chegar do meu objetivo, mas de qualquer forma agradeço sua resposta.