الرجاء من خبراء الاكسل شرح هذا الكود واعطاء مثال على ذلك بارك الله فيكم
Private Sub AddIcon()
Dim hWnd As Long
Dim lngRet As Long
Dim hIcon As Long
' hIcon = Sheets("1").Shapes("Picture").Handle
hIcon = Sheets("1").Image1.Picture.Handle
hWnd = FindWindow(vbNullString, Me.Caption)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
lngRet = DrawMenuBar(hWnd)
End Sub