Symbol oben Links in MS Project ändern

18/03/2008 - 14:46 von Thomas Umbricht | Report spam
Hallo NG

Ist es möglich das Microsoft MS Project Symbol oben Links, wenn das Programm
geöffnet ist, über VBA oder so zu àndern? Wir haben hier ein grösseres Addon
programmiert für MS Project und möchten, wenn man es quasi mit unserem
Global.mpt öffnet, dass das Symbol oben links auch anders ist.

Welches Symbol ich meine:
www.binary.ch/1.jpg

thx
Thomas
 

Lesen sie die antworten

#1 Thomas Umbricht
03/04/2008 - 15:14 | Warnen spam
"Thomas Umbricht" <newsgroupATbinary.ch> schrieb im Newsbeitrag
news:%
Hallo NG

Ist es möglich das Microsoft MS Project Symbol oben Links, wenn das
Programm geöffnet ist, über VBA oder so zu àndern? Wir haben hier ein
grösseres Addon programmiert für MS Project und möchten, wenn man es quasi
mit unserem Global.mpt öffnet, dass das Symbol oben links auch anders ist.

Welches Symbol ich meine:
www.binary.ch/1.jpg




Habe nun die Lösung selbst gefunden auf
http://www.vbaexpress.com/kb/getart...hp?kb_idE7

code:

'******CODE FOR THISWORKBOOK MODULE******

Option Explicit

Private Sub Workbook_Open()
Application.Caption = " My Personalized Workbook"
ChangeApplicationIcon
End Sub
'*****************************************




'************CODE FOR MODULE1*************

Option Explicit

Declare Function GetActiveWindow32 Lib "USER32" Alias _
"GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "USER32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long


'modification of code from Excel Experts E-Letter Archives.
'Original code By Jim Rech can be found by following this
'link > http://www.j-walk.com/ss/excel/eee/eee020.txt


Sub ChangeApplicationIcon()

Dim Icon&

'*****Change Icon To Suit*******
Const NewIcon$ = "Notepad.exe"
'*****************************

Icon = ExtractIcon32(0, NewIcon, 0)
SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon
SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon

End Sub
'*****************************************

Ähnliche fragen