kimbal

°ÝÃD¬O­n¬Ý§Aªº¹Ï¦W©M¿ï¶µ¦³¤°»òÃö¨t
¥H¤Uªº¬O,¦pªG¿ï¤Wªº¬O1
¹Ï¦W¦Û°Ê§ä"C:\aaa\-01.jpg"
¦pªG¿ï¤Wªº¬O2
¹Ï¦W¦Û°Ê§ä"C:\aaa\-02.jpg"
...
¦pªG¿ï¤Wªº¬O99
¹Ï¦W¦Û°Ê§ä"C:\aaa\-99.jpg"


Private Sub ComboBox1_Change()
    Dim strImageLocation
    strImageLocation = "C:\aaa\-" & Format(Val(ComboBox1.Text), 0) & ".jpg"
    Image1.Picture = LoadPicture(strImageLocation)
    Dim u As Range
    Set u = Worksheets("data_picture").Range("e1")
    Call ActiveSheet.Shapes.AddPicture(strImageLocation, msoFalse, msoTrue, u.Left, u.Top, 200, 200)

End Sub