adattare zoom

Hai un problema con Excel?

Nuova discussione

adattare zoom
di FA-BA (utente non iscritto) data: 23/04/2017 11:29:35
Ciao a tutti !! Son sempre io. ... Questa volta e spero sia l'ultima volta , "che vi rompo le scatole con le mie cretinate" vorrei sapere se possibile ottenere tramite Macro lo zoom adattato alla selezione .
Ovviamente sarà selezionato tramite (select) o giù di li. Grazie per la pazienza (so di essere fastidiosissimo) ( Ho sbalzi di umore pazzeschi e sono stato offensivo con alcuni di voi ... perdonatemi !! )

di patel data: 23/04/2017 12:38:32
prova così

Sub Riduci()
 ZoomToRange ZoomThisRange:=Range("A1:K40"), PreserveRows:=True
End Sub

Sub Ingrandisci()
ZoomToRange ZoomThisRange:=Range("A1:K40"), PreserveRows:=False
End Sub

Sub ZoomToRange(ByVal ZoomThisRange As Range, _
    ByVal PreserveRows As Boolean)
Dim Wind As Window
Set Wind = ActiveWindow
Application.ScreenUpdating = False
Application.Goto ZoomThisRange(1, 1), True
With ZoomThisRange
    If PreserveRows = True Then
        .Resize(.Rows.Count, 1).Select
    Else
        .Resize(1, .Columns.Count).Select
    End If
End With
With Wind
    .Zoom = True
    .VisibleRange(1, 1).Select
End With
End Sub

di FA-BA (utente non iscritto) data: 23/04/2017 12:48:17
DOVREI SOLO MODIFICARE Range("A1:K40"), per ciò che serve a me giusto?

Questa la inserirò ad ogni macro che visualizzerà la propria pagina.... ho varie pagine che si apriranno a secondo dell'utilizzo ed ognuna ha un contenuto +/- grande ( più celle o colonne rispetto ad altre ) ed ognuna ha bisogno di aggiustamenti particolari questa che mi hai fornito funziona per questo scopo?

di FA-BA (utente non iscritto) data: 23/04/2017 12:55:39
Non funziona mi da errore

Declare Function sndPlaySound32 Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Informazioni_Varie()
Sheets("NOTE").WindowsMediaPlayer0.URL = "" ' INTERROMPE MUSICA MENU
' CREARE SUONO (FARE!!!)
' CREARE MUSICA LETTURA (FARE!!!)
Application.DisplayFullScreen = True 'VISUALIZZO A TUTTO SCHERMO
Foglio509.ScrollArea = "A111:S135" 'BLOCCO SCROLL
Sheets("MENU").Visible = False
Sheets("ISTRUZIONI").Visible = True
'ADATTA SCHERMO.............................................................
ZoomToRange ZoomThisRange:=Range("A111:S135"), PreserveRows:=False
'---------------------------------------------------------------------------/
Range("N111").Select
Sheets("NOTE").WindowsMediaPlayer0.URL = "" ' RIAVVIA MUSICA MENU
End Sub

di FA-BA (utente non iscritto) data: 23/04/2017 13:12:52
Questa funziona ma la cella N111 NON VIENE SELEZIONATA ...?

Declare Function sndPlaySound32 Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Informazioni_Varie()
' INTERROMPE MUSICA MENU
' CREARE SUONO
' CREARE MUSICA LETTURA
Application.DisplayFullScreen = True 'VISUALIZZO A TUTTO SCHERMO
Foglio509.ScrollArea = "A111:S135" 'BLOCCO SCROLL
Sheets("ISTRUZIONI").Visible = True
Sheets("MENU").Visible = False
End Sub
Sub ZoomToRange(ByVal ZoomThisRange As Range, _
    ByVal PreserveRows As Boolean)
Dim Wind As Window
Set Wind = ActiveWindow
Application.ScreenUpdating = False
Application.Goto ZoomThisRange(1, 1), True
With ZoomThisRange
    If PreserveRows = True Then
        .Resize(.Rows.Count, 1).Select
    Else
        .Resize(1, .Columns.Count).Select
    End If
End With
With Wind
    .Zoom = True
    .VisibleRange(1, 1).Select
End With
Range("N111").Select '  non viene selezionata....??????!!!!!!!
' RIAVVIA MUSICA MENU
End Sub

di FA-BA (utente non iscritto) data: 23/04/2017 14:16:34
AIUTO... L'HO applicata bene ,così deve essere??
di FA-BA (utente non iscritto) data: 23/04/2017 14:22:59
NON FUNZIONA.... FUNZIONAVA SOLO Perché QUANDO ERO USCITO ERO IN QUELLA AREA ma ho provato a salvare quando ero sulla pagina ma su altre celle e non mi mandava dove doveva...? Se qualcuno sa come visualizzare una area bloccandola e adattandola.... aspetto risposta.
di FA-BA (utente non iscritto) data: 25/04/2017 11:28:57
Patel--- mi puoi spiegare come attivare la macro che mi hai dato per l'adattamento automatico Grazie....!!!! ero in attesa ma non ho visto + nulla....
di patel data: 25/04/2017 11:42:55
non hai visto nulla perché non riesco a capirti ed ormai ci ho rinunciato
di FA-BA (utente non iscritto) data: 25/04/2017 12:33:33
SE MI DICI COSA NON HAI CAPITO MI SPIEGO MEGLIO.... OPPURE MEGLIO ANCORA CI SI Può INCONTRARE OFFRO IO ... E TI FACCIO VEDERE QUESTO GIOCO.... DIMMI COME CI METTIAMO IN CONTATTO....?!

Vuoi Approfondire?