med-7 قام بنشر أبريل 28, 2017 قام بنشر أبريل 28, 2017 الرجاء من خبراء الاكسل شرح هذا الكود واعطاء مثال على ذلك بارك الله فيكم 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
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان