ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Userform³Ì¤j¤Æ(¥B¤º®e¤ñ¨Ò¦Û°Ê©ñ¤j?)

¦^´_ 10# GBKEE
ªí³æ³Ì¤j¤Æ
  1. Option Explicit
  2. Private Sub UserForm_Initialize()  'ªí³æªì©l¤Æªºµ{¦¡
  3.     Dim e As Control
  4.     For Each e In Me.Controls
  5.         e.Tag = e.Top & "," & e.Left & "," & e.Width & "," & e.Height & "," & e.Font.Size
  6.     Next
  7.     Form_xlMax
  8. End Sub
  9. Private Sub Form_xlMax() 'ªí³æ³Ì¤j¤Æ
  10.     Dim xlMax As Double, ylMax As Double, xZoom As Double
  11.     Dim e As Control
  12.     With Application
  13.         .WindowState = xlMaximized
  14.         xlMax = .Width
  15.         ylMax = .Height
  16.     End With
  17.     xZoom = 1
  18.     Do While Width < xlMax
  19.         Width = Width * xZoom
  20.         Height = Height * xZoom
  21.         For Each e In Controls
  22.             With e
  23.                 .Top = .Top * xZoom
  24.                 .Left = .Left * xZoom
  25.                 .Width = .Width * xZoom
  26.                 .Height = .Height * xZoom
  27.                 .Font.Size = .Font.Size * xZoom
  28.                Debug.Print xZoom, .Font.Size
  29.             End With
  30.         Next
  31.         xZoom = xZoom * 1.0000654
  32.     Loop
  33.     Top = 0
  34.     Left = 0
  35. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-19 19:01 ½s¿è

¦^´_ 8# bobomi

javascript:;
    ·PÁ¤j¤j,§Ú´ú¸Õ¹L¥i¥H¦Û°Ê©ñ¤jªºuserform ¶W»Åªº~¸òºô­¶¤@¼Ë¦Û¥Ñ©b©ñ,¦ý....©ñ¤j®ÄªG¤£¨Î,¥H±zªºuserfrom¨Ó©ñ¤j¤§«á·|µo²{¤ñ¨Ò©Ç©Çªº
§Ú·Q­ì¦]À³¸Ó¬O¸ò©p»¡ªº¤@¼Ë,zoom¥u¯à¦P®É©ñ¤j,µLªk¥u½Õ¾ã¥ô¦ó¤@Ã䪺Ãö«Y

¦Ü©ó13"¹q¸£ªº³¡¤À,§Ú´ú¸Õ¹L©p³Ì«áªºµ{¦¡½X,¸ò¤§«eªº¤@¼Ë©O!·|¶W¥XÃä¬É(¥»¨­­ì¥»ªº¤j¤p¬O¤£·|¶W¹Lªº)

ªþ¥ó¬O§ÚªºUSERFORMªº¤j¤p!

Documents.rar (2.29 KB)

USERFORM2

PKKO

TOP

¦^´_ 11# GBKEE


    ¶Wª©¤j¤j,§Ú©ñ¤Jªí³æ¤º¨Ï¥Î,¨Ã¨ú¥NUSERFORMªº©Ò¦³µ{¦¡½X,¦ýµL½×«ç»òÂI·Æ¹«³£µLªk¤Ï¬M?
PKKO

TOP

¦^´_ 13# PKKO

10# ªºµ{¦¡½X
©ñ¤j: Áä½LCtrl Áä + «ö¤U¥ª·Æ¹«Áä
ÁY¤p: Áä½LCtrl Áä + «ö¤U¥k·Æ¹«Áä
ÁÙ­ì: Áä½LShiftÁä +«ö¤U·Æ¹«¥ô¤@Áä
  1. If Shift = 2 Then           'Ctrl Áä
  2.         Select Case Button      '·Æ¹«
  3.             Case 1              '«ö¤U¥ª·Æ¹«Áä¡C: ©ñ¤j
  4.                 xZoom = 1.2     '©ñ¤j %2
  5.             Case 2              '«ö¤U¥k·Æ¹«Áä¡C: ÁY¤p
  6.                 xZoom = 0.8     'ÁY¤p %2
  7.         End Select
  8.        Zoom_UserForm xZoom     'ªí³æÁY©ñµ{¦¡
  9.     ElseIf Shift = 1 Then       'Shift Áä +¥ô¤@·Æ¹««öÁä
  10.         Revert_UserForm         'ªí³æÁÙ­ì­ì¥»¤j¤p
  11.     End If
½Æ»s¥N½X
11#ªºµ{¦¡½X
ªí³æ¶}±Ò¦Û°Ê³Ì¤j¤Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE


    ·PÁÂ,¤w¤F¸Ñ¨Ï¥Î¤è¦¡!
PKKO

TOP

UserForm.Zoom3.zip (15.19 KB)

TOP

¦^´_ 16# bobomi


    ¤j¤j,¸Ì­±¨S¦³userform = =
PKKO

TOP

¦^´_ 8# bobomi


    ¤j¤j±z¦n,
«ö·Ó¤j¤j±zªº°µªk,¥i¥H¤â°Ê©Ô¤j¤ñ²v(¤j¤j±z¤w¸g§¹¦¨¤F!),¦ý¥i§_¥[¤W¤@­Ó¦Û°ÊÀx¦sUserform³Ì«áªº½Õ¾ãª¬ªp,¦pªG¨S¦³°O¾Ð,¨Ï¥ÎªÌ¨C¦¸³£­n½Õ¾ã¹ê¦b¨¯­W(¨Ò¦p°O¾Ð¦bFormSize³o­Ósheet¦WºÙ¤º),
¤U¦¸¥´¶}©l·|¦Û°Ê§ì¨ú¤W¦¸½Õ¾ãªº¤j¤p!
PKKO

TOP

¦^´_ 10# GBKEE


    ¶Wª©¤j¤j±z¦n,±zªº³o­Ó¤è¦¡¥i¥H«O«ùªí³æ¥H¤Î¤º®e¤ñ²vªº§¹¾ã©Ê,«D±`¹ê¥Î,¤]¥iÅý¤p§Ì¤F¸Ñ¨ì©³¬O¦p¦ó©ñ¤j¤ÎÁY¤pªº
¦ý¦³¨S¦³¿ìªk¥i¥Hª½±µ©ñ¤j
¦Ó¥B©ñ¤jªº¤ñ²v¬O¥H¼e©Î¬O°ª,¥ô¤@Ã䪺·¥­­¬°·¥­­
ÁקK°ª¤w¸g¨ì·¥­­¤F,¥i¬O¼eÁÙ¨S,¾É­Pª½±µ©ñ¨ì³Ì¤j¤Æ¤§«á,°ª·|¶W¹L¿Ã¹õ¥iµøªº¦ì¸m
PKKO

TOP

1.zip (2.71 KB)
³Ì¤j¤Æ®É, ±±¥ó¤£·|¹L¤j

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD