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

[µo°Ý] ¸U¥Î¦r¤¸-§ì¹Ï¤ù

[µo°Ý] ¸U¥Î¦r¤¸-§ì¹Ï¤ù

¦bA2¿é¤JÀɦW±N¹Ï¤ùÅã¥Ü¦bB2
¯à¨Ï¥Î¸U¥Î¦r¤¸¶Ü?
¨Ò¦p¡GÀɦW¬°ABCDEFG.JPG§Ú¦bA2¿é¤JABC¤]¯àÅã¥ÜABCDEFGªº¹Ï¤ù
¥H¤U¬O§Úªºµ{¦¡½X
½Ð°Ý¸Ó¦p¦ó§ï©O
Sub Macro1()
    j = 2
    While Cells(j, "A") <> ""
        NN = Cells(j, "A")
        Cells(j, "B").Select
        On Error Resume Next
        ActiveSheet.Pictures.Insert("D:\My Pictures" & NN).Select
        Selection.ShapeRange.LockAspectRatio = msoTrue
        Selection.ShapeRange.Height = 100#
        Selection.ShapeRange.Width = 100#
        Selection.ShapeRange.Rotation = 0#
        With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
        End With
    j = j + 1
    Wend
    Range("A2").Select
End Sub

¦^´_ 1# whirlwind963


    ActiveSheet.Pictures.Insert("D:\My Pictures\" & NN & ".JPG").Select
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

¦pªG³o¤@¦æ§ï¦¨
ActiveSheet.Pictures.Insert("D:\My Pictures\" & NN & "*.JPG").Select
¥i¦æ¶Ü?ÁÙ¬O¥u¯à¿é¤J§¹¾ãªºÀɮצWºÙ
ÁÙ¬O¦³¨ä¥Lªº§ïªk

TOP

¦^´_  Hsieh

¦pªG³o¤@¦æ§ï¦¨
ActiveSheet.Pictures.Insert("D:\My Pictures\" & NN & "*.JPG").Select ...
whirlwind963 µoªí©ó 2012-11-2 10:04



³o­Ó¤èªk§Ú¤]«Ü¦n©_...§Æ±æ¯à¦³¸Ñµª¡Aª¾¹D¬O§_¥i¦æ¡C

¥t¥~§Ú¥Ø«e¨Ï¥Îªº¤èªk¬O¥ý¾ã²z¥X²£«~ªº²M³æ¡B¹ïÀ³¹Ï¤ù¦WºÙ¡B¹Ï¤ù©ñ¸m¦ì¸m¡C
¦b»²¥H¤U©Ô¿ï¾Ü²£«~¡A¦Û°Ê´N·|±a¥X¹Ï¤ù¥X¨Ó....«e¨î§@·~ºâ¬O¤ñ¸ûªø
¤£¹L¸ò¤@¯ëª½±µ§â¹Ï¤ù©ñ¦bexcel¸Ì­± ¬O¥i¥H¸`¬Ù¶}±ÒªÅ¶¡ ¦ý¬O®e©ö²V¶Ã...«¢«¢...¦Û¤v¥Îok¦Ó¤w
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD