[µo°Ý] EXCEL §R°£©Ò¦³¹Ï¤ù

whirlwind963

ActiveSheet.Pictures.Delete
³o­Ó«ü¥O¯à§R°£¤u§@ªí¸Ìªº©Ò¦³¹Ï¤ù
¦ý¬O¦p¦ó°µ¤~¯à¤£§R±¼¤u§@ªíªºbottom©O

GBKEE

¦^´_ 1# whirlwind963
¤u§@ªíªºbottom   °õ¦æ ActiveSheet.Pictures.Delete ³oµ{¦¡½X
°Ñ¦Ò³o¸Ì   Application.Caller

whirlwind963

¦^´_ 2# GBKEE

Private Sub CommandButton1_Click()
    Macro1
End Sub

    Sub Macro1()
    Sheets("Sheet1").Select
    j = 2
    While Cells(j, "C") <> ""
        ActiveSheet.Pictures.Delete
        NN = Cells(j, "C")
        Cells(j, "D").Select
        ActiveSheet.Pictures.Insert( _
         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("C2").Select
End Sub
½Ð°Ý§Úªº­ì©l½X¬O¤W­±ªº
­n«ç»ò¿ì¤~¯à¤£§R±¼bottom©O

GBKEE

¦^´_ 3# whirlwind963
µ{¦¡¤¤¨S¬Ý¨ì§R±¼bottom (Shapeª«¥ó)ªºµ{¦¡½X

1. Sub Macro1()
   
2.     Sheets("Sheet1").Select
   
3.     ActiveSheet.Pictures.Delete      '¦b¦¹µ{¦¡¥u§R¤@¦¸·Ó¤ù
   
4.     j = 2
   
5.     While Cells(j, "C") <> ""
   
6.        ' ActiveSheet.Pictures.Delete  
   
7.      '¦b°j°é¤¤¤@ª½§R·Ó¤ù ¹ï©ó«á­±ªºPictures.Insert ¦³¦ó·N¸q
   
8.         NN = Cells(j, "C")
   
9.         Cells(j, "D").Select
   
10.         ActiveSheet.Pictures.Insert( _
    
11.          NN). _
    
12.         Select
    
13.         Selection.ShapeRange.LockAspectRatio = msoTrue
    
14.         Selection.ShapeRange.Height = 100#
    
15.         Selection.ShapeRange.Width = 100#
    
16.         Selection.ShapeRange.Rotation = 0#
    
17.         With Selection
    
18.         .Placement = xlMoveAndSize
    
19.         .PrintObject = True
    
20.         End With
    
21.     j = j + 1
    
22.     Wend
    
23.     Range("C2").Select
    
24. End Sub

½Æ»s¥N½X

whirlwind963

¦^´_ 4# GBKEE


Private Sub CommandButton1_Click()
    Macro1
End Sub
§Ú¬O¥Îbuttom°õ¦æmacro1ªº

GBKEE

¦^´_ 5# whirlwind963
§Aµ{¦¡¤¤¨S¬Ý¨ì§R±¼bottom (Shapeª«¥ó)ªºµ{¦¡½X
ªþ¤WÀɮ׬ݬÝ

whirlwind963

¦^´_ 6# GBKEE
³Â·ÐÀ°§Ú¬Ý¤@¤U
·í§Ú«ö¤UBUTTOM«á
¹Ï¤ù¥i¥H§R°£
¦ý¬OBUTTOM¤]·|¸òµÛ§R°£

GBKEE

¦^´_ 7# whirlwind963
¥i°Ñ¦Ò ³o¸Ì  http://forum.twbts.com/viewthread.php?tid=687
   

1. Sub Macro1()
   
2.      Dim E As Shape, j, NN
   
3.     Sheets("Sheet1").Select
   
4.     For Each E In ActiveSheet.Shapes
   
5.         If E.Type = 13 Then E.Delete
   
6.         'If InStr(E.Name, "Picture") Then E.Delete '³o¤]¥i¥H
   
7.     Next
   
8.     j = 2
   
9.     While Cells(j, "C") <> ""
   
10.         NN = Cells(j, "C")
    
11.         Cells(j, "D").Select
    
12.         ActiveSheet.Pictures.Insert( _
    
13.          NN). _
    
14.         Select
    
15.         Selection.ShapeRange.LockAspectRatio = msoTrue
    
16.         Selection.ShapeRange.Height = 100#
    
17.         Selection.ShapeRange.Width = 100#
    
18.         Selection.ShapeRange.Rotation = 0#
    
19.         With Selection
    
20.         .Placement = xlMoveAndSize
    
21.         .PrintObject = True
    
22.         End With
    
23.     j = j + 1
    
24.     Wend
    
25.     Range("C2").Select
    
26. End Sub

½Æ»s¥N½X