[µo°Ý] excel¦C°ªÀH¹q¸£windows 7 ³]©w¤£¦P¦Ó¦³®t²§

baconbacons

¤U¦Cªº¥¨¶°¹J¨ì¤@­Ó°ÝÃDµLªk¸Ñ¨M ·Q½Ð±Ð°£¤F¤â°Ê½Õ¾ãwindows³]©w¥~ ¯à§_¥H¥¨¶°¤è¦¡¦Û°Ê³B²z¡H
¦]¬°ªí®æ(¦C°ª¡BÄæ¼e§¡¦³©T©w³W®æ)¦³½Æ»s»Ý­n ¬G¥H¤U¦Cµ{¦¡½X³B²z
¦ý¦¹µ{¦¡½X¦b¥»¤H¹q¸£¹B§@¥¿±` ¦b¥L¤H¹q¸£·|µo¥Íªí®æ¶]±¼±¡§Î
¸g¹L½T»{­ì©lªí®æªº¦C°ª¼Æ­È(¥kÁä½T»{¦C°ª)¬O©T©wªº  ¦ý°ÝÃD¥X¦b©ówindows 7³]©w
±±¨î¥x>¥~Æ[¤Î­Ó¤H¤Æ>Åý¿Ã¹õ¤Wªº¤º®e§ó®e©ö¾\Ū
§Úªº³]©w¬O100%¡A¥L¤Hªº³]©w¬O125%
¾É­P§Úªºªí®æ¦b¹wÄý®É³£¥¿±` ¦ý¥L¤Hªº¹q¸£¦b¹wÄý²Ä¤T­¶¤§«á´N¶}©l¶]±¼(²Ä4­¶ªº¸ê®Æ¶]¨ì²Ä3­¶¡Kµ¥)
½Ð±Ð¸Ó¦p¦ó³B²z¡H

1.     If myPhoto <> "" Then                                             
   
2.         j = 25
   
3.         Set Rng = Rows("1:24")
   
4.             Rng.Copy                                                         
   
5.         For i = 1 To (countPhoto - 1)
   
6.             With ActiveSheet.Cells(j, 1)                                 
   
7.                  .PasteSpecial Paste:=xlPasteAll
   
8. '                .PasteSpecial Paste:=xlPasteFormats                          
   
9.             End With
   
10.             j = j + 24
    
11.         Next i
    
12.         Application.CutCopyMode = False

½Æ»s¥N½X

baconbacons

¦^´_ 8# GBKEE
GBKEE¤j¡G
¸Õ¹L´£¨Ñªº¤èªk ÁÙ¬OµLªk¸Ñ¨M¸õ­¶ªº°ÝÃD  ¦A«ô°UGBKEE¤j¤F¡K

baconbacons

¦^´_ 6# GBKEE
GBKEE¤j¡G
¸g¹L¹Á¸Õ ÁöµM¥i¥H©T©w¦C°ª ¦ý³o¤èªk¦b§ïÅܿùõ¤ñ¨Ò(¤£¬OÁY©ñ¤ñ¨Ò)«á¤´·|µo¥Í¬Û¦Pªº°ÝÃD
¦A³Â·Ð GBKEE¤j

baconbacons

¦^´_ 9# stillfish00
stillfish00¤j¡G
¹Á¸Õ§Aªº«Øijµ{¦¡½X  ÁÙ¬O·|¶W¥X¸Ó­¶­±  §Ú·Q¥i¯à¤£¬OÁY©ñ¤ñ¨ÒªºÃö«Y
¦]¬°§Úªº¤u§@ªí¦C°ª­È©M§O¤H¹q¸£ªº¦C°ª­È §¹¥þ¤@¼Ë
§Ú¹q¸£ªºµn¿ýÀɳ]©w­È = Hex 60 ®É, 10¶i¦ì­È = 96 (¨ä·N ¬° 96 DPI, = 100%)
§O¤H¹q¸£µn¿ýÀɳ]©w­È = Hex 78 ®É, 10¶i¦ì­È = 120 (¨ä·N ¬° 120 DPI, = 125%)
µ²ªG´N¬O§Ú¦L¥X¨Ó³£¥¿±` §O¤H¦L¥X¨Ó´N¶}©l¥X²{¿ù¦ì±¡§Î
·PÁÂstillfish00¤j

stillfish00

¦^´_ 5# baconbacons
¨S¦³­n§A³]©w¬°100°Ú¡A¬O­n§A¦bcopy§¹°õ¦æ¤@¦¸ 4# ªº AutoZoom¡AÅý¥L¥h¦Û°Ê½Õ¾ã

GBKEE

¦^´_ 7# baconbacons
ThisWorkbookªº
Private Sub Workbook_Open()
¦bÀɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
¦b¬¡­¶Ã¯¤¤¿ï¾Ü§@¥Î¤¤¤u§@ªí®É¦Û°Ê°õ¦æªºµ{¦¡.

§Aªº±¡ªp¥i¯à¶·¦b³oµ{¦¡¤¤¤@¤@«ü©w­Ó§OÀx¦s®æªºÄæ¼e,¦C°ª

baconbacons

¦^´_ 6# GBKEE
GBKEE¤j¡G
°Ý¤@­Ó²Â°ÝÃD¡A¬O­n§â³o¤T­ÓPrivate Sub³£¶K¦bThisWorkbookªº¼Ò²Õ¦A°õ¦æ¶Ü¡H
ÁÙ¬O¶K¦b­ì¥»¦Û¤vªºµ{¦¡½X¤¤¡H¦]¬°§ÚªºÀx¦s®æ¨Ã«D¨C¤@¦C°ª¡B¨C¤@Äæ¼e³£©T©w¤j¤p
¦Ó¬O±N24¦C¦X¨ÖÀx¦s®æ«á¡A¥H¦¹¦X¨ÖÀx¦s®æ¬°¼ËªO¥h½Æ»s¡A©Ò¥H¤~·|¦³¤U¦Cµ{¦¡½Xªº§@ªk
Set Rng = Rows("1:24")
            Rng.Copy

GBKEE

¦^´_ 5# baconbacons
¸Õ¸Õ¬Ý

ThisWorkbook ¼Ò²Õªº¬¡­¶Ã¯¨Æ¥ó

1. Option Explicit
   
2. Const My_Width = 9.11  '«ü©wÄ檺¼e«×
   
3. Const My_Height = 20.4 '«ü©w¦Cªº°ª«×
   
4. Private Sub Workbook_Open()
   
5.     Àx¦s®æªº½Õ¾ã ActiveSheet
   
6. End Sub
   
7. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
8.     Àx¦s®æªº½Õ¾ã Sh
   
9. End Sub
   
10. Private Sub Àx¦s®æªº½Õ¾ã(Sh As Worksheet)
    
11.     With Sh.Cells
    
12.         .ColumnWidth = My_Width
    
13.         .RowHeight = My_Height
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

baconbacons

¦^´_ 4# stillfish00
stillfish00¤j¡G

§Úª½±µ±NActiveWindow.Zoomªº­È³]©w¬°100  ¦ý°ÝÃDÁÙ¬O¨S¸Ñ¨M §Ú·QÁY©ñ¤ñ¨Ò©MLogPixels¦n¹³¬O·N«ä¤£¦P
ActiveWindow.Zoom = 100
·Ð½Ðstillfish00¤j¦A«ü±Ð

stillfish00

¦^´_ 1# baconbacons
¥i¥H¸Õ¸Õ¥Î©ñ¤jÁY¤p¡A¨Ï¬Y½d³òÅã¥Ü¦b¤@¾ã­¶
EX:  °²³]1~24¦æ¬°¤@­¶

1. Sub AutoZoom()
   
2.   ActiveSheet.Range("1:24").Select
   
3.   ActiveWindow.Zoom = True
   
4. End Sub

½Æ»s¥N½X