GBKEE

¦^´_ 1# av8d

1. Option Explicit
   
2. Private Sub Image1_Click()
   
3.     With Application.FileDialog(msoFileDialogFilePicker)
   
4.         .InitialFileName = "D:\*.*"    '­×§ï¬°§Aªº®à­±¸ô®|
   
5.         If .Show = -1 Then Image1.Picture = LoadPicture(.SelectedItems(1))
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

§R°£Image1ªº¹Ï¤ù   Image1.Picture = LoadPicture("")
VBAªº»¡©ú:
Height¡BWidth ÄÝ©Ê ª«¥óªº°ª«×»P¼e«×¡A³æ¦ì¬°ÂI¡C
ÂI¼Æ ¤@ÂI¬° 1/72 ¦T¡C¦r§Î¤j¤p³q±`¥HÂI¼Æ¨Ó¶q«×
Height ©Î Width ¥²¶·¤j©óµ¥©ó¹s¡C¦b¦h¼Æ¨t²Î¤¤¡A³q±`¨ä½d³ò¦b 0 ¨ì +32,767 ¤§¶¡¡A¶W¹Lªº¸Ü«h»Ýµø¨t²Î¦Ó©w¡C

GBKEE

¦^´_ 4# av8d
±z¦n~¦pªG§Ú¬O¶}±Òµe¤@­Ó¶ê§Î~µM«á¥kÁä¡÷«ü©w¥¨¶°
¿ý»s:

1. Sub Macro1()
   
2.     ActiveSheet.Shapes("AutoShape 1").Select
   
3.     Selection.OnAction = "ThisWorkbook.EX"
   
4. End Sub

½Æ»s¥N½X

¦Û¤v¼gªº

1. Sub EX()
   
2.     Sheet1.Shapes("AutoShape 1").OnAction = "ThisWorkbook.EX"
   
3. End Sub

½Æ»s¥N½X

***************************
Dim RetVal                                ' ¬°¤@ Variant¡C
' ¹w³]ÄÝ©Ê«ü©w¬°«¬ºA 8¡A§Y Variant RetVal¡C
RetVal = CreateObject("Excel.Application")   
RetVal.Visible = True                ' ¿ù»~¦b¦¹µo¥Í¡C
·í«ü©wª«¥ó¤Þ¥Î®É¡A½Ð¨Ï¥Î Set ³¯­z¦¡¡C
*********³o¤@¬q¤£©úÁA   §A¤wª¾¹D  ½Ð¨Ï¥Î Set ³¯­z¦¡

GBKEE

¦^´_ 6# av8d
ªþ¤WÀɮ׬ݬÝ

1. Sub Ex()
   
2.     ActiveSheet.Pictures.Delete   '§R°£¥þ³¡·Ó¤ù
   
3.     ''''''''''''''''''''''''''''''''''''''''''
   
4.     ActiveSheet.Shapes.SelectAll  'ÂI¿ï¥þ³¡¹Ï¤ù
   
5.     Selection.Delete              '§R°£ ÂI¿ï¥þ³¡¹Ï¤ù
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# av8d
Sheet1 ¨S¦³¾ò¶ê 32
Sub ¾ò¶ê32_Click()
    Sheet3.Shapes("¾ò¶ê 32").OnAction = "ThisWorkbook.EX"
End Sub