Hi.. I have a problem.. why my image (ActiveX Image) not changing..
VBA EXCEL 2007..
thank...


Private Sub LogoButton_Click()

Dim fs As FileDialog, myDir As String, wsLogo As Worksheet

Set fs = Application.FileDialog(msoFileDialogFilePicker)
fs.Title = "Select Your LOGO"

fs.Filters.Clear
fs.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp", 1

myDir = ThisWorkbook.Path
Workbooks.Open myDir & "\Logo.xls"
Set wsLogo = Workbooks("Logo").Sheets("LOGO")

If fs.Show = -1 Then
a = fs.SelectedItems(1)
Me.Button.Picture = LoadPicture(a)
Sheet4.Image1.Picture = LoadPicture(a)
wsLogo.Shapes("Image1").Fill.UserPicture a
Workbooks("Logo").Close savechanges:=True
End If

End Sub