- ©«¤l
- 6
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- office2000
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2021-1-11
- ³Ì«áµn¿ý
- 2021-3-22
|
¤p§Ì¤S¨Ó¦Û°Ý¦Ûµª¤F...
ªá¤F¾ãӱߤW³£¦b§äµª®×¡A³Ì«á²×©ó¯à¨Ï¥Î¤F
GOOGLE¨ì¤@½g¤å³¹¡A¼ÐÃD¬O"Display a Range of Cells from a Worksheet on a Userform"
¥Ñ©ó¤£ª¾¹DþÃä¥X¤F°ÝÃD¡A¥u¦n¥h§äì©lÀÉ
±µµÛª½±µ½Æ»sModule(modPastePicture)¨ì¦Û¤vªºÀɮפº
µM«á´N¥i¥H·ÓµÛ¤å³¹¤ºªº¤èªk¨Ï¥Î¤F
³Ì²×§Úµ¹«ö¶sªºµ{¦¡¦p¤U- Paivate Sub CommandButton1_Click()
- Worksheets("XXX").Range("A1:BC16").CopyPicture xlPrinter,xlPicture
- Me.Image1.Picture=PastePicture(xlPicture)
- End Sub
½Æ»s¥N½X «ö¤U«ö¶s«á¡A´N¯à¬Ý¨ìªí³æ¤ºªº¹Ï¤ù«_¥X¦Û¤v«ü©wªº½d³ò
§¹¥þ¨SÅv¡A¥u¯à¦b¤£¤À°Ï°Ý°ÝÃD...¯u¬OÃø¹L
³sµ²¤]¤£¯à¥Î... |
|