Datum

Titel

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

19.04.2024 13:49:38

Per Kopfdruck als pdf speichern und Mail erstellen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1560to1564

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Command Button verkleinert ...

Forumthread: Command Button verkleinert ...
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

01.06.2017 09:56:35

philipp

Guten Morgen,
ich habe eine Tabelle mit mehreren CommandButton.
Auf meinem anderen PC, mit etwas anderer Auflösung, werden diese
aber etwas verkleinert bzw. undeutlich angezeigt.
Was muss ich ändern um die Darstellung immer gleich zu
haben ?
mfg
philipp b

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Command Button verkleinert ...

01.06.2017 10:52:49

dirk
Danke Dirk ! -)

01.06.2017 11:01:41

philipp
AW: Danke Dirk ! -)

01.06.2017 11:07:12

dirk
Geht nicht !

01.06.2017 11:23:40

philipp
AW: Geht nicht !

01.06.2017 11:43:03

dirk
Danke Dirk ! -)

01.06.2017 12:44:45

philipp

AW: Command Button verkleinert ...

01.06.2017 10:52:49

dirk

Hallo!
Du könntest über ein Macro den Zoomfaktor Deiner Tabelle entsprechend der verwendeten Auflösung anpassen.
Private Declare PtrSafe


Function GetSystemMetrics Lib "USER32" _
(ByVal nIndex As Long) As Long

Sub Macro1()
Dim maxWidth As Long
Dim myWidth As Long
Dim myZoom As Single
maxWidth = GetSystemMetrics(0) * 0.96
myWidth = ThisWorkbook.ActiveSheet.Range("R1").Left
myZoom = maxWidth / myWidth
ActiveWindow.Zoom = myZoom * 100
End Sub

Hier der Link zur Seite: 

https://stackoverflow.com/questions/11533942/adjusting-worksheet-zoom-level-based-on-screen-resolution

Gruss

Dirk aus Dubai

Danke Dirk ! -)

01.06.2017 11:01:41

philipp

AW: Danke Dirk ! -)

01.06.2017 11:07:12

dirk

Hi nochmal,
Habe bei Kopieren die erste Zeile abgeschnitten. Muss so aussehen:
Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" _
(ByVal nIndex As Long) As Long
Gruss
Dirk aus Dubai

Geht nicht !

01.06.2017 11:23:40

philipp

Hallo Dirk,
klappt nicht.
Private Declare PtrSafe


Function GetSystemMetrics Lib "USER32" _
(ByVal nIndex As Long) As Long

Sub Macro1()
Dim maxWidth As Long
Dim myWidth As Long
Dim myZoom As Single
maxWidth = GetSystemMetrics(0) * 0.96
myWidth = ThisWorkbook.ActiveSheet.Range("R1").Left
myZoom = maxWidth / myWidth
ActiveWindow.Zoom = myZoom * 100
End Sub

bleibt hier stehen: PtrSafe

erwartet 

Sub oder function
gruß philipp b

AW: Geht nicht !

01.06.2017 11:43:03

dirk

Hallo!
Ich habe das mal bei mir ausprobiert. Deklaration und Macro in DieseArbeitsmappe einfügen.
Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" _
(ByVal nIndex As Long) As Long

Private Sub Workbook_Open()
Dim maxWidth As Long
Dim myWidth As Long
Dim myZoom As Single
maxWidth = GetSystemMetrics(0) * 0.96
myWidth = ThisWorkbook.ActiveSheet.Range("R1").Left
myZoom = maxWidth / myWidth
ActiveWindow.Zoom = myZoom * 90 'hier Zoomfaktor einstellen
End Sub

Läuft bei mir ohne Probleme.
Gruss
Dirk aus Dubai

Danke Dirk ! -)

01.06.2017 12:44:45

philipp