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

[µo°Ý] ½Ð°Ý¥i§_ ´¡¤J¹ÏÀɮɥi¥H§k¦XÀx¦sÄæ¦ì¤j¤p

[µo°Ý] ½Ð°Ý¥i§_ ´¡¤J¹ÏÀɮɥi¥H§k¦XÀx¦sÄæ¦ì¤j¤p

½Ð°Ý¦U¦ìºô¥S

¦]¬°§Úªº¤u§@±`±`­n¦b»s§@Excel ªí®æ®É¡A­n±qºô¸ô¤W©ì¦²¹ÏÀÉ ÁÙ¬O  ´¡¤J¹ÏÀɨì Àx¦sÄæ¦ì¤¤
¦³®É¤@¤Ñ¦s­Ó´X¤Q±i¹Ï¡A³£­n½Õ¾ã¤j¤p¨Ã³]©wÄݩʬ°¤j¤p¦ì¸mÀHÀx¦s®æ¦ÓÅÜ¡A«D±`ªºªá®É¶¡¡C

¦³¤G­Ó°ÝÃD·Q­n´M¨D¸Ñµª

¤@¡B ¦³¤°»ò¤èªk¥i¥H¤j¶qªº´¡¤J¹ÏÀɨìÀx¦s®æ¤§¤¤¡A¨Ì§Çªº«ö¦C±Æ¦n¡A¨Ã¤£¥Î¦A¶i¦æ½Õ¾ã©O¡H
¤G¡B ¼Ï¯Ã¤ÀªR¬O§_¥i¥H³s¹Ï¤]¤@°_Åã¥Ü¥X¨Ó©O¡H

§Ú¥Ø«e¨Ï¥Îªº¬O  office 2010  ªºª©¥».

½Ð°Ý¦³°ª¤â¥i¥H¸Ñ´b¶Ü¡H «D±`·PÁÂ..

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-27 15:43 ½s¿è

¦^´_ 2# justinbaba
´¡¤J¹ÏÀɮɥi¥H§k¦XÀx¦sÄæ¦ì¤j¤p
°Ñ¦Ò³o²z

¦³¤°»ò¤èªk¥i¥H¤j¶qªº´¡¤J¹ÏÀɨìÀx¦s®æ¤§¤¤
§Aªº¤j¶q¹Ï¤ù¦b­þ¸Ì?
³Ì¦nªþ½d¨ÒÀɤW¨Ó
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥Ø«e·Q­n°µ¥Xªº¨Ó¥\¯à¬°





©êºp¡A¦]¬°§Ú§¹¥þ¨S¦³VBA ªº°ò¦.. ·|¦A§V¤OK®Ñªº..
¦Ó¦³¦ìµ½¤ßªººô¤Íµ¹§Ú¤@¬qµ{¦¡½X.. ¦ý¬O§Ú¸ÕµÛ¥hkey in «á, ¦n¹³¨Ã¨S¦³¦¨¥\ ..
¦Aªþ¤W§Ú§@ªºexcel ÀÉ.. ½Ðºô¥S­ÌÀ°¤pªº¬Ý¬Ý°ÝÃD¥X¦b¨º©O¡H   ¬O§Ú¨ºÃä°õ¦æ¤W¦³¿ù»~¶Ü¡H¡H
Test for ¹Ï¤ù´¡¤J.zip (12.05 KB)
  1. Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
  2. Dim p As Object
  3. If Dir(PictureFileName) = "" Then Exit Sub
  4. Set p = ActiveSheet.Pictures.Insert(PictureFileName)
  5. With TargetCells
  6. p.Top = .Top
  7. p.Left = .Left
  8. .ColumnWidth = .ColumnWidth / .Width * p.Width
  9. .RowHeight = p.Height
  10. End With
  11. Set p = Nothing
  12. End Sub
½Æ»s¥N½X
  1. Sub TestInsertPictureInCell()
  2. On Error Resume Next
  3. For i = 1 To 10
  4. InsertPictureInRange "C:\Temp\Pic" & i, Range("A" & i)
  5. Next i
  6. End Sub
½Æ»s¥N½X

TOP

©êºp~~ ­è¤~ªº·Ó¤ù ¨S¦³¥[¤Wµù¸Ñ..

²Ä¤@±i
°é¿ï·Ó¤ù,¨Ã©ì¦²¨ìexcel Àx¦s®æ¤¤

²Ä¤G±i
Â\©ñ¨ìÀx¦s®æ¤¤ªº·Ó¤ù·|¦Û°ÊÅܦ¨ "ÀHÀx¦s®æ¤j¤p¦ÓÅÜ"
¤£»Ý­n¦A¶i¦æ½Õ¾ã¤Î³]©w

²Ä¤T±i
¬Yºô­¶¤Wªº·Ó¤ù¤]¥i¥H³z¹L©ì¦²¨ìÀx¦s®æ«á¡A§¹¦¨¸ò«e­±¨BÆJ¤@¼Ëªºª¬ºA

TOP

¦^´_ 5# justinbaba
ºô­¶¤W°é¿ï·Ó¤ù,¨Ã©ì¦²¨ìexcel ,³oXP°µ¤£¨ìªº,¥i¥H½Æ»s¥¦µM«á¶K¨ìExcel¤W.(¤â°Êªº½Æ»s)
½Ð´£¨Ñ ºô­¶ªººô§},¤Î¿ï·Ó¤ùªº³W«h,¥ÎVBA¨Ó¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim P As Picture, URL As String
  3.         URL = "http://forum.twbts.com/attachments/month_1410/1410281446b4ab2b90bda703fc.jpg.thumb.jpg"
  4.         '«ü­q·Ó¤ùªººô§}
  5.     Set P = ActiveSheet.Pictures.Insert(URL)  'ª«¥ó(¤u§@ªí¤W·s¼W·Ó¤ù)
  6.     With Range("C5")        '«ü©wªºÀx¦s®æ
  7.         .RowHeight = 150    '½Õ¾ãÀx¦s®æ°ª«×
  8.         .ColumnWidth = 50   '½Õ¾ãÀx¦s®æ¼e«×
  9.         P.Top = .Top        '·Ó¤ùªº¥ª¤W¤è¦b¤u§@ªí¤Wªº¦ì¸m
  10.         P.Left = .Left      '·Ó¤ùªº¥k¤è¦b¤u§@ªí¤Wªº¦ì¸m
  11.         P.Height = .Height  '·Ó¤ùªº°ª«×=Àx¦s®æªº°ª«×
  12.         P.Width = .Width    '·Ó¤ùªº¼e«×=Àx¦s®æªº¼e«×
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  justinbaba
ºô­¶¤W°é¿ï·Ó¤ù,¨Ã©ì¦²¨ìexcel ,³oXP°µ¤£¨ìªº,¥i¥H½Æ»s¥¦µM«á¶K¨ìExcel¤W.(¤â°Êªº½Æ»s) ...
GBKEE µoªí©ó 2014-10-29 11:02


GBKEE ¤j±z¦n... ¦A½Ð±Ð¤@¤U.. ±zµ¹§Úªº³o¬qµ{¦¡½X¬O°w¹ï·Ó¤ùªº½Õ¾ã¶Ü¡H
¬O§_¤]¯à§âÀx¦s®æ¦Û°Ê½Õ¾ã¨ì§k¦X·Ó¤ùªº¤j¤p©O¡H
Test for ¹Ï¤ù´¡¤J.zip (14.59 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-30 14:42 ½s¿è

¦^´_ 7# justinbaba
¤Ï¹L¨Ó
  1. Option Explicit
  2. Sub Ex()
  3.     Dim P As Picture, URL As String
  4.         URL = "http://forum.twbts.com/attachments/month_1410/1410281446b4ab2b90bda703fc.jpg.thumb.jpg"
  5.         '«ü­q·Ó¤ùªººô§}
  6.        'ActiveSheet.Pictures.Delete '§R°£©Ò¦³ªº·Ó¤ù
  7.     Set P = ActiveSheet.Pictures.Insert(URL)  'ª«¥ó(¤u§@ªí¤W·s¼W·Ó¤ù)
  8.     With Range("C5")            '«ü©wªºÀx¦s®æ
  9.         P.Top = .Top            '·Ó¤ùªº¥k¤è¦b¤u§@ªí¤Wªº¦ì¸m
  10.         P.Left = .Left          '·Ó¤ùªº¥k¤è¦b¤u§@ªí¤Wªº¦ì¸m
  11.         .RowHeight = P.Height    '½Õ¾ãÀx¦s®æ°ª«×=>·Ó¤ùªº°ª«×
  12.         .ColumnWidth = P.Width * (.ColumnWidth / .Width)   '½Õ¾ãÀx¦s®æÄæ¼e=>·Ó¤ùªº¼e«×
  13.         '** Âà´« Width(ÂI:¹³¯À)=ColumnWidth(¼e«×)
  14.         'ColumnWidth ¤@³æ¦ìÄæ¼e¬Û·í©ó¤@¯ë¼Ë¦¡¤¤ªº¤@­Ó¦r¤¸ªº¼e«×
  15.         'Width ÄÝ©Ê¥HÂI¬°³æ¦ì¶Ç¦^Äæ¼e¡C
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  justinbaba
¤Ï¹L¨Ó
GBKEE µoªí©ó 2014-10-29 13:10


¦n¹³¦¨¥\¤F~~ ¨º¦A½Ð°Ý¤@¤U¡Aµ{¦¡½X­n«ç»ò§ï¡A¤~¯àÅý§Ú¦b¹q¸£ºÝ´¡¤Jªº¹ÏÀÉ¥i¥H ¾A¥Î¦b ¨C¤@­ÓÄæ¦ì©O¡H
©êºp @@ ¯uªº­n¦A¥[ªo¤~¦æ

TOP

¦^´_ 9# justinbaba
½Ð´£¨Ñ ºô­¶ªººô§},¤Î¿ï·Ó¤ùªº³W«h,¥ÎVBA¨Ó¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD