Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zoom...

9 views
Skip to first unread message

Francesco

unread,
Jul 26, 2004, 10:00:41 AM7/26/04
to
Salve, possiedo Office 2003.
Excel lo uso solo per leggere documenti che mi arrivano e ogni volta per
visualizzarli in larghezza massima devo andare su zoom e impostarlo a 110%.
Esiste un modo per impostare automaticamente lo zoom a quel livello?
Grazie.


Maurizio Borrelli

unread,
Jul 26, 2004, 11:39:13 AM7/26/04
to
"Francesco" <fra...@lib.it> ha scritto nel messaggio
news:ce32r5$nu9$1...@lacerta.tiscalinet.it...

Ciao, Francesco.

Un modo è questo:

' * INIZIO *********
Option Explicit

Private WithEvents m_objXlApp As Excel.Application

Private Sub m_objXlApp_WorkbookOpen(ByVal Wb As Workbook)
m_objXlApp.ActiveWindow.Zoom = 110
End Sub

Private Sub Workbook_BeforeClose( _
ByRef Cancel As Boolean)
Set m_objXlApp = Nothing
End Sub

Private Sub Workbook_Open()
Set m_objXlApp = Me.Application
End Sub
' * FINE *********

Se già stai usando la cartella PERSONAL.XLS copia il codice qui sopra e
incollalo nel Modulo:

ThisWorkbook

di PERSONAL.XLS.

Se ancora non usi PERSONAL.XLS qui trovi alcune indicazioni su come
creare tale file:

http://groups.google.it/groups?as_umsgid=9coom6%24egl6h%2...@ID-52090.news.dfncis.de
(TuttoSuUnaRiga)

--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)

Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
X
--------


Tiziano Marmiroli

unread,
Jul 26, 2004, 1:31:14 PM7/26/04
to
Il Mon, 26 Jul 2004 17:39:13 +0200, Maurizio Borrelli ha scritto:

Nel post

> http://groups.google.it/groups?as_umsgid=9coom6%24egl6h%2...@ID-52090.news.dfncis.de

scrivevi:

> Excel e` giunto alla versione 9 (2000) e Microsoft, come noto, sta
> preparando la 10 (2002 o XP). A proposito, questo
> non vuol dire che ne abbia prodotto dieci versioni perche', correggetemi se
> sbaglio, manca all'appello la versione 7

La versione 7 era Excel 95. Quella che manca all'appello è la versione
6. Vedi

XL: Version History of Microsoft Excel for Windows
http://web.archive.org/web/20011031125431/http://support.microsoft.com/support/kb/articles/Q66/9/13.asp

--
Tiziano Marmiroli
Microsoft MVP - Office

Maurizio Borrelli

unread,
Aug 5, 2004, 4:16:28 PM8/5/04
to
"Tiziano Marmiroli" <t.mar...@mvps.org> ha scritto nel messaggio
news:oleag05oamd59kc72...@4ax.com...

> Il Mon, 26 Jul 2004 17:39:13 +0200, Maurizio Borrelli ha scritto:
http://groups.google.it/groups?as_umsgid=9coom6%24egl6h%2...@ID-52090.news.dfncis.de
[...]
http://web.archive.org/web/20011031125431/http://support.microsoft.com/support/kb/articles/Q66/9/13.asp

Ciao, Tiziano.

Grazie!... :-)

--

0 new messages