והפעם שאלה....

והפעם שאלה....

האם מישהו נתקל פעם בצורך להוסיף כפתור בקוד? נשמע פשוט נכון... אבל אני צריך להוסיף כפתור לאאוטלוק, וורד ופוורפוינט... הכפתור ישב בסרגל הכלים ויפעיל מקרו שגם אותו אני צריך להוסיף באופן חיצוני. לצורך הדוגמה נאמר שאני רוצה להוסיף כפתור לסרגל הכלים של OUTLOOK שיפעיל לי מחשבון.... למישהו יש רעיונות וכיוונים?
 

חיון

New member
נקוה שזה יעזור...

מתוך ספר שמונח אצלי:
Using VBA You use the Add method of the CommandBars collection to add a new control to a toolbar. To add a built-in control, you specify the ID number of that control in the ID argument of the Add method. This adds the Spelling control to the "Quick Tools" toolbar: Set mySpell = CommandBars("Quick Tools").Controls.Add(Id:=2) For information about determining the built-in command ID numbers of an Office application, see "Menu Item and Toolbar Control Ids" later in this section. To add a custom control, you add a new control and then set the OnAction property specifying a VBA procedure. Set the type argument of the Add method to msoControlButton to indicate that the new control is a button, and set the FaceId value of the control to the ID of a built-in control whose face you want to copy. The following Excel example adds a button before the Save button on the Standard toolbar. The procedure "macro1" is executed by the button, and the image is set to that of a grid (ID 987). Set xx = CommandBars("Standard").Controls.Add(Type:=msoControlButton, _ Before:=3) xx.OnAction:="macro1" xx.FaceId = 987​
 
למיטב הבנתי...

הקטע מדבר באמת על תוספת של כפתור לסרגל כלים... אבל הוא מתייחס לסרגל הנוכחי... כלומר אם אנחנו מדברים על אקסס אז הוספתי כפתור לאקסס..... את זה אני יודע לעשות... אני רוצה להוסיף כפתור מאקסס לאאוטלוק.... או לאקסל או לוורד...... כאן הבעיה שלי..... היכולת לקשור בין VBA באקסס לסרגלי הכלים של אאוטלוק וכדומה....
 
גם זה.....

גם כאן המאמר מדבר על יצירת מקרו מתוך EXCEL ואני יודע איך עושים את זה.... השאלה היא אחרת... איך, מאקסס או VB, אני יוצר כפתור בEXCEL או OUTLOOK או WORD שמפעיל קוד כלשהו או מאקרו כלשהו. (למשל הפעלת המחשבון של ה-WINDOWS)
 

ansin

New member
חלק מהתשובה...

גרמת לי לחקור את הנושא והינה התוצאה החלקית:
Dim ExcelSheet As Object Dim cbar1 As Object Dim ctrl1 As Object Set ExcelSheet = CreateObject("Excel.Application") Set cbar1 = ExcelSheet.Application.CommandBars.Add(Name:="Smulik1", Position:=4, Temporary:=False) With cbar1 Set ctrl1 = .Controls.Add(Type:=1, Id:="2") .Visible = True End With ctrl1.OnAction = "=MyFunction()" ExcelSheet.Application.Quit​
הבעיה היא....איך תכניס ל-Excell את הפונקציה או המאקרו MyFunction הממ...חומר למחשבה וגם, בדוגמה הזו יצרתי toolbar חדש - כמובן שניתן להוסיף כפתור גם לקיים...אבל זה כבר לא צריך להסביר לך מקווה שעזרתי ולא סיפרתי לך משהו שאתה כבר יודע
 
את האמת?

אני עכשיו מנסה את מה שהצעת..... ויכול להיות שזה הפתרון למה שאני מחפש.......... תודה
 
לגבי אקסל

באקסל, לכאורה אין בעיה. שומרים מודול כ-xla ומצמידים לו סרגל כלים (בתפריט התאמה אישית 'הצמד'), אח"כ שומרים את הקובץ בתיקיית xlStart
 
למעלה