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

[µo°Ý] ¦Û°Ê´¡¤J¹Ï¤ù

[µo°Ý] ¦Û°Ê´¡¤J¹Ï¤ù

¤j®a¦n
¦]¬°¦³»Ý¨D¡A¦b¬Ý¤F³oÃä¤å³¹¡Aµo²{¹Ï¤ùÀÉ®×¥i¥H¦Û°Ê±a¤J
http://forum.twbts.com/thread-11280-1-1.html

·Q¸ß°Ý¦p¦ó¦bÄæ¦ì¿é¤J¦WºÙ«á¡A¦Û°Ê´¡¤J¹Ï¤ù
¹Ï¤ù¦s©ñªº¦ì¸m D:\JPG

¿é¤JÀɮצWºÙªºÄæ¦ì¦³2Äæ

¿é¤JÀɮצWºÙ B6, B14 ...B14+8 (¶¡¹j8­ÓÄæ¦ì)
Åã¥Ü¹Ï¤ù¦ì¸m A5, A13 ...A13+8 (¶¡¹j8­ÓÄæ¦ì)
¹Ï¤ù¸óÄæA5~A12Åã¥Ü

¿é¤JÀɮצWºÙ E6, E14 ...E14+8 (¶¡¹j8­ÓÄæ¦ì)
Åã¥Ü¹Ï¤ù¦ì¸m D5,D13 ...D13+8 (¶¡¹j8­ÓÄæ¦ì)
¹Ï¤ù¸óÄæD5~D12Åã¥Ü

­Y§ä¤£¨ìÀɮסA·|Åã¥Ü§ä¤£¨ìÀÉ®×

À³¸Ó¦p¦ó°µ½s¿è?

ÁÂÁ¤j®aÀ°¦£

22.png (13.67 KB)

¼Ë¥»

22.png

°Ñ¦Ò GBKEE ¤j
http://forum.twbts.com/thread-11280-1-1.html


Option Explicit
Sub JpgInsert()
    Dim Mypath As String, E As Range, x%, y%   ', MyPic As Object
    Mypath = "D:\JPG\"
    Application.ScreenUpdating = False

    With Sheets("Sheet1")
        .Pictures.Delete '§R°£¥þ³¡¹Ï¤ù
        For y = 0 To 9
            For x = 0 To 2
                Set E = Cells(5 + 8 * y, 1 + x * 3)
'                E.Resize(8).ColumnWidth = 30     '½Õ¾ãÀx¦s®æ¼e«×
'                E.Resize(8).RowHeight = 20        '½Õ¾ãÀx¦s®æ°ª«×
                If Dir(Mypath & E(2, 2) & ".jpg") <> "" Then
                    'Set MyPic = ActiveSheet.Pictures.Insert(Mypath & E & ".jpg")
                    With .Pictures.Insert(Mypath & E(2, 2) & ".jpg")
                        .ShapeRange.LockAspectRatio = msoFalse '¹Ï§Î¤ñ¨Ò msoTrue / msoFalse=¶ñº¡®æ
                        .Left = E.Resize(8).Left
                        .Top = E.Resize(8).Top
                        .Width = E.Resize(8).Width   '=Àx¦s®æ¼e«×
                        .Height = E.Resize(8).Height '=Àx¦s®æ°ª«×
                    End With
                End If
            Next
        Next
    End With
    Application.ScreenUpdating = True
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ «Ø»Ê ©ó 2016-5-26 01:57 ½s¿è

¦^´_ 2# ML089

ML089 ±z¦n

³øºp¡A²{¦b¤~¦^ÂаT®§¡C

·Q¸ß°Ýµ{¦¡­n¶K¦b¨º¸Ì¡A¥H¤Î¦p¦ó°õ¦æ¡G
¸Õ¤F¶K¦b¤u§@ªísheet1¡]sheet1¡^¡A
Àɮ׸ô®|©MÀɮ׫¬ºA³£½T»{¤F¡A
¹Ï®×µLªkÅã¥Ü¡A¦A½ÐÀ°¦£«üÂI£¸£½¤U¡A
­n±Nµ{¦¡¶K¦b¨º¸Ì¡A¤Î¦p¦ó°õ¦æ¡C

ÁÂÁ±z¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-5-26 09:10 ½s¿è

¦^´_ 3# «Ø»Ê
±Nµ{¦¡¶K¦Ü ThisWorkbook ©Î¬O §Aªº¤u§@ªí³æ¤º (Ä´¦p¡G"Sheet1" ¡B"¤u§@ªí1") ©Î¬O¼Ò²Õ¤º (¦p¡GModule1¡B¼Ò²Õ1) §¡¥i¡C
¶¶¤â±N
  1.     With .Pictures.Insert(Mypath & E(2, 2) & ".jpg")
½Æ»s¥N½X
­×§ï¦¨
  1.     ActiveSheet.Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
  2.     With Selection
½Æ»s¥N½X
©Î¬O
  1.     .Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
  2.     With Selection
½Æ»s¥N½X
³o¬O¦]¬°§A¤w¸g¦ì¦b With Sheets("xxxxx") ¤º¤F¡AActiveSheet §Y¬O«ü Sheets("xxxxx")¡C
¥H¤Î
  1.         For y = 0 To 9
  2.             For x = 0 To 2
½Æ»s¥N½X
­×§ï¦¨
  1.         For y = 0 To 1
  2.             For x = 0 To 1
½Æ»s¥N½X
´N²Å¦X§Aªº´£°Ý¤F¡C

TOP

¦^´_ 3# «Ø»Ê

½d¨ÒÀɮסA½Ð¤U¸ü°Ñ¦Ò
http://www.FunP.Net/420075

´¡¤J¹Ï¤ù.rar (1 MB)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# c_c_lai

ÁÂÁ«ü¥¿
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 6# ML089
§Ú¥u¬O¸Ñµª #3 ªº´£°Ý¦Ó¤w¡A¨ä¹ê§A #5 ªº½d¨Ò
¤]ÆZ¤£¿ùªº¡C¤×¨ä¬O¹Ï¤ù­×¹¢ªº»yªk¡C

TOP

¥»©«³Ì«á¥Ñ «Ø»Ê ©ó 2016-5-28 01:33 ½s¿è

¦U¦ì«e½ú¤j®a±ß¤W¦n¡A

ÁÂÁÂML089 »P c_c_lai ¨â¦ìªº¨ó§U¡A¸Ñ¨M¤F§Úªº°ÝÃD¡C

¨ä¦¸¡A·Q¦AÄ~Äò¸ß°Ý¡A
­Y±NexcelÀɮצs©ñ¦b¹q¸£®à­±¡A¤è«Kª½±µÀɮ׶}±Ò¡A
¦Ó¹Ï¤ùªº³¡¤À¡AÀɮצs©ñ¦bD:\JPG¡A¬O§_¥i¦æ¡C

¥Ø«e²{ªp¬Oexcel©MjpgÀɮ׻ݦs©ñ¦bD:\JPG¡A¤~¯à¥¿±`Åã¥Ü¹Ï¤ù¡C

ÁÂÁ¡C

TOP

¦^´_ 8# «Ø»Ê

­ì
Mypath = ThisWorkbook.Path & "\"    ' "D:\JPG\" '¹Ï¤ùÀɮשñ¸m¥Ø¿ý

§ï¬°
Mypath = "D:\JPG\" '¹Ï¤ùÀɮשñ¸m¥Ø¿ý
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ «Ø»Ê ©ó 2016-5-29 10:09 ½s¿è

¦^´_ 9# ML089


Dear    ML089
ÁÂÁ¡A°ÝÃD¤w¸g¸Ñ¨M¤F¡Cµ¹§A¤@­Óòû°Õ!!

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD