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 todosPrivate 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.