Command Button verkleinert ...

Forumthread: Command Button verkleinert ...

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Command Button verkleinert ...

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread