Board logo

¼ÐÃD: [µo°Ý] ¨D§U¦³Ãö¿é¤JÀɦWª½±µ¸õ¥X·Ó¤ùªºµ{¦¡ [¥´¦L¥»­¶]

§@ªÌ: apple99152    ®É¶¡: 2015-4-30 14:35     ¼ÐÃD: ¨D§U¦³Ãö¿é¤JÀɦWª½±µ¸õ¥X·Ó¤ùªºµ{¦¡

¤j®a¦n:

¦]¥»¨­«D¸ê°T¥X¥Í «D±`¤£¤F¸Ñµ{¦¡ §Æ±æ¥i¥H¨D§U:
¦p¦ó¦bÈвM³æÈТÑÄæ¤Î¢ÓÄæ¡A¿é¤JÀɦW¡A ¡]¨Ò¦p¡@F1.JPG ¡BR1.JPG¡^
´N¯à°÷¤À§O¦bÈзӤù¢°ÈФΡ¨·Ó¤ù2¡¨¬¡­¶Ã¯¦Û°Ê¸õ¥X·Ó¤ùªº¤èªk?


[attach]20830[/attach]
[attach]20831[/attach]
[attach]20832[/attach]


½Ð¦U¦ìÀ°¦£¡A·PÁ¡I

³nÅé: Office Excel
ª©¥»: 2013
§@ªÌ: apple99152    ®É¶¡: 2015-4-30 14:44

¦^´_ 1# apple99152

·Ó¤ùÀx¦s¸ê®Æ§¨¬°
    D:\TEST
§@ªÌ: lpk187    ®É¶¡: 2015-5-1 06:28

¦^´_ 2# apple99152

¥H¤Uµ{¦¡½X¬O¹ï©¤ªº¤@¦ì¦Ñ®vªº±Ð¾Ç½d¨Ò¡A§Ú­×§ï¤F¤@¤U¨Ó²Å¦X§Aªº­n¨D¡A¸Õ¸Õ
  1. Public Sub ·Ó¤ù1()
  2. For Each shap In Sheets("·Ó¤ù1").Shapes
  3.     If shap.Type <> 8 Then shap.Delete
  4. Next
  5. For Each Rng In Sheets("·Ó¤ù1").Range("C2", Range("c2").End(xlDown))
  6.     Pat = "D:\TEST\" & Rng
  7.     Set rngs = Cells(Rng.Row, "C")
  8.     Sheets("·Ó¤ù1").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
  9. Next
  10. For Each Rng In Sheets("·Ó¤ù1").Range("E2", Range("E2").End(xlDown))
  11.     Pat = "D:\TEST\" & Rng
  12.     Set rngs = Cells(Rng.Row, "E")
  13.     Sheets("·Ó¤ù1").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
  14. Next
  15. End Sub

  16. Public Sub ·Ó¤ù2()
  17. For Each shap In Sheets("·Ó¤ù2").Shapes
  18.     If shap.Type <> 8 Then shap.Delete
  19. Next
  20. For Each Rng In Sheets("·Ó¤ù2").Range("B2", Range("B2").End(xlToRight))
  21.     Pat = "D:\TEST\" & Rng
  22.     Set rngs = Cells(2, Rng.Column)
  23.     Sheets("·Ó¤ù2").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
  24. Next
  25. For Each Rng In Sheets("·Ó¤ù2").Range("B5", Range("B5").End(xlToRight))
  26.     Pat = "D:\TEST\" & Rng
  27.     Set rngs = Cells(5, Rng.Column)
  28.     Sheets("·Ó¤ù2").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
  29. Next
  30. End Sub
½Æ»s¥N½X





Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)