GBKEE

¦^´_ 2# jackyq
Shape ³£¥i¥H¥[¤J­I´º¤ù

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("B4")     '«ü©wÀx¦s®æ
   
4.         .ClearComments   '²M°£µù¸Ñ
   
5.         .AddComment      '´¡¤Jµù¸Ñ
   
6.         With .Comment    'µù¸Ñ
   
7.             .Visible = True '¥i¨£
   
8.             .Text "´¡¤J «ü©w¹Ï¤ù"   '¤å¦r
   
9.             With .Shape.OLEFormat.Object  'ª«¥ó
   
10.                 .ShapeRange.Fill.UserPicture "d:\001.jpg" '¹Ï¤ù¦WºÙ
    
11.             End With
    
12.         End With
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# blue2263
¤£©T©wRange ("B4") ¥i¥Î Selection ´À¥N
½×¾Â¤W·j´M  Application.FileDialog,VBAªº»¡©ú¦³½d¨Ò,
¸Õ¸Õ¬Ý,¯u¤£¦æ,¦Aµo°Ý.

GBKEE

¦^´_ 7# blue2263

1. Option Explicit
   
2. 'VBAªº»¡©ú¦³ FileDialog ªº½d¨Ò,
   
3. Sub Ex()
   
4.     Dim E As Variant
   
5.     'Dim Box As FileDialog, E As Variant
   
6.     'Set Box = Application.FileDialog(msoFileDialogOpen)
   
7.      'With Box
   
8.      With Application.FileDialog(msoFileDialogOpen)
   
9.         .Show
   
10.         For Each E In .SelectedItems
    
11.             MsgBox E
    
12.             '¾É¤J§Aªºµ{¦¡
    
13.         Next
    
14.     End With
    
15.    
    
16. End Sub

½Æ»s¥N½X