- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-24 05:26 ½s¿è
¦^´_ 1# xlarge16803 - Option Explicit
- Sub ¸ü¤J¹Ï¤ù()
- Dim MyRng As Range, XR As Range, uPath$, y&, xFile$
- Set MyRng = [A3]
- If [A3] = "" Then MsgBox "µL¹ÏÀɦWºÙ¡I": Exit Sub
- 'ThisWorkbook.Path ¶Ç¦^³o¬¡¶Ã¯ÀɮצsÀɪº¸ô®| ¦p ="C:\"
- uPath = ThisWorkbook.Path & "c:/my picture/" ' =>"C:\c:/my picture/" ³o¬O¿ù»~ªº¸ô®|?
- '¬O³o¼Ë§a!!
- uPath = ThisWorkbook.Path '->= "c:/my picture" ¹ï¶Ü???
- If Dir(uPath, vbDirectory) = "" Then MsgBox "§ä¤£¨ì¹ÏÀɸê®Æ§¨¡I": Exit Sub
- ActiveSheet.Pictures.Delete
- Application.ScreenUpdating = False
- For Each XR In Union([B3], [C3], [D3], [E3])
- y = y + 1
- xFile = uPath & "\" & MyRng & "-" & y & ".JPG"
- If Dir(xFile) <> "" Then
- With ActiveSheet.Pictures.Insert(xFile)
- .ShapeRange.LockAspectRatio = msoFalse
- .Width = XR.Width
- .Height = XR.Height
- .Left = XR.Left
- .Top = XR.Top
- End With
- End If
- Next
- End Sub
½Æ»s¥N½X |
|