Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

autom. Bildschirmauflösung bei Autostart

Forumthread: autom. Bildschirmauflösung bei Autostart

autom. Bildschirmauflösung bei Autostart
29.03.2003 20:09:35
udo
Hallo Leute,

weis jemand von euch wie man Excel per VBA anweist in einem Makro - Autostart ( steht in Modul 1 bei mir ) das Excel dann die Bildschirmauflösung des Programmes autom. an jede Bildschirmgrösse anpasst.

Ich habe eine Datei für unser Geschäft entworfen. Diese Datei enthält ca. 30 Tabellenblätter die wiederum verschiedene Spalten und Zeilenbreiten - oder Höhen haben.

Die Datei ist an einem Bildschirm 21 Zoll entworfen worden.
Ursprüngliche Auflösung in Zoom ist 100%.

Da wir nun im Geschäft versch. Bildschirme haben 17``,19``usw
sollte sich diese Datei beim Starten also automatisch an jeden Bildschirm anpassen.

Habt ihr eine Idee ?

Übrigens bei diesem Programm dass in der Produktion Verwendung findet wird per Autostart sämtliche Leisten , Register und Balken von Excel ausgeblendet, sodass es wie ein eingenständiges Programm ( ähnlich einer PowerPoint Vorführung in Vollbildmodus ) wirkt, und beim schließen der Datei stellt sich Excel wieder auf normal um. Funktioniert alles per Makrosteuerung, sowie auch die Steuerungen zwischen den einzelnen Tabellen, nur zur Info.

Ich wäre euch sehr verbunden, die Lösung müsste wahrscheinlich ein VBA CODE sein den ich in mein Autostartmakro mit einfügen könnte.

Vielen lieben Dank im Voraus an alle Helfer,
udo

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: autom. Bildschirmauflösung bei Autostart
29.03.2003 20:24:43
Ramses

Hallo Udo,

damit ist es nicht getan, weil auch auf einem 17" eine 1600er, oder 1280er Auflösung gefahren werden kann.

Ich würde dir empfehlen die optimale Zoom-Auflösung manuell auszuprobieren und dann in eine Abfrage zu integrieren:


'Das ganze gehört in ein Modul
'Wird aus dem Autostart afugerufen mit
'Call Set_Zoom
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As LongAs Long
Public Enum ScreenArgs
    HORIZONTAL
    VERTIKAL
End Enum

Public Function ScreenResolution(HV As ScreenArgs) As Long
    If HV = 0 Or HV = 1 Then ScreenResolution = GetSystemMetrics(HV)
End Function

Sub Set_Zoom()
'Die Werte hinter .Zoom den eigenen Bedürfnissen anpassen
Select Case ScreenResolution(0)
Case 1600
    ActiveWindow.Zoom = 100
Case 1280
    ActiveWindow.Zoom = 85
Case 1024
    ActiveWindow.Zoom = 75
Case 800
    ActiveWindow.Zoom = 65
Case 640
    ActiveWindow.Zoom = 55
End Select
End Sub


'Eine Variante mit entsprechend formatierten
'Tabellen die in Abhängigkeit der Bild-
'schirmauflösung ausgewählt werden
Sub Choose_Table_depend_from_Screen()
If ScreenResolution(0) = 1024 Then
    Worksheets("1024").Select
Else
    Worksheets("800").Select
End If
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruss Rainer

Anzeige
vielen lieben Dank euch Beiden werde es gl. testen
29.03.2003 20:31:08
udo

Hallo erstmal,
Vielen lieben Dank für die tollen Tipps, ich werde es gleich mal testen.

Danke Danke Danke

Gruß udo ;-)

Übrigens Rainer ....
29.03.2003 20:40:41
udo @ Rainer

Hallo Rainer zunächst nochmal herzlichen Dank für deine tolle Hilfe. Du hattest mir vor geraumer Zeit schon mal bei meinem Vokabeltrainer geholfen, auch hier nochmals herzlichen Dank für deine Hilfe.
Dieser ist jetzt seit letzter Woche fertig. Bei uns in der Klasse sind alle schwer beeindruckt davon, wenn du möchtest schicke ich dir gerne eine Version rüber.
Er hat etwa 8-9MB und müsste auf excel 8-10 problemlos laufen,
zumindest ist uns noch nihts aufgefallen. Er ist wirklich super genial und beinhaltet den gesamten Wortschatz der Oberstufe englisch / deutsch.
Meldest dich kurz unter udo-de@web.de wenn du Interesse hast, würde mich gerne für deine nette Hilfe hiermit erkenntlich zeigen.

Gruß udo


Anzeige
Re: Übrigens Rainer ....
29.03.2003 20:46:00
Ramses

Hallo Udo,

Herzlichen Dank.
Ein schönes Feedback. Das Angebot nehme ich gerne an um mal zu sehen, wozu meine Beiträge hier eigentlich gut sind :-))

Mail Adresse ist im Namen hinterlegt :-)

Gruss Rainer


Re: Übrigens Rainer ....
29.03.2003 20:46:01
Ramses

Hallo Udo,

Herzlichen Dank.
Ein schönes Feedback. Das Angebot nehme ich gerne an um mal zu sehen, wozu meine Beiträge hier eigentlich gut sind :-))

Mail Adresse ist im Namen hinterlegt :-)

Gruss Rainer


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige