Este fórum está sendo desativado

[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?

[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

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

[Pegorini]

Não sei se entendi.

Queres que a tela seja maximizada?


se sim, então:

Application.WindowState = xlMaximized

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