| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming code to new object
I want to create button with some code to worksheet. I can programm button
but i don't know how can i do action for this button :-(. Do you know please? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
See other post.
-- HTH Bob Phillips "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martin,
Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Thank you, but it doesn't work :-(. It show me warning: "Can't get button
property worksheet class". For illustration, there is program: ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi, thank you but it doesn't work, it shows me warning:"Can't get button
property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martim.
Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martin,
See your other post. --- Regards, Norman "Martin" wrote in message ... Thank you, but it doesn't work :-(. It show me warning: "Can't get button property worksheet class". For illustration, there is program: ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
If it is a forms button, just right-click it and assign a macro from the
menu options. -- HTH Bob Phillips "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Thank you very much! Can i have last question? Can I change caption of button?
It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back" "Norman Jones" wrote: Hi Martim. Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martin,
You have already provided the code to name (or rename) the button yourself: ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption _ = "Návrat" --- Regards, Norman "Martin" wrote in message ... Thank you very much! Can i have last question? Can I change caption of button? It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back" "Norman Jones" wrote: Hi Martim. Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martin,
Word-wrap willing: ActiveSheet.OLEObjects _ ("CommandButton1").Object.Caption = "Návrat" --- Regards, Norman "Norman Jones" wrote in message ... Hi Martin, You have already provided the code to name (or rename) the button yourself: ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption _ = "Návrat" --- Regards, Norman "Martin" wrote in message ... Thank you very much! Can i have last question? Can I change caption of button? It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back" "Norman Jones" wrote: Hi Martim. Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Norman,
thank you for all! I haven't another question ;-) Regards Martin "Norman Jones" wrote: Hi Martin, Word-wrap willing: ActiveSheet.OLEObjects _ ("CommandButton1").Object.Caption = "Návrat" --- Regards, Norman "Norman Jones" wrote in message ... Hi Martin, You have already provided the code to name (or rename) the button yourself: ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption _ = "Návrat" --- Regards, Norman "Martin" wrote in message ... Thank you very much! Can i have last question? Can I change caption of button? It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back" "Norman Jones" wrote: Hi Martim. Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
|
#13
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Programming code to new object
Hi Martin,
thank you for all! I haven't another question ;-) Je t'en prie! --- Regards, Norman "Martin" wrote in message ... Hi Norman, thank you for all! I haven't another question ;-) Regards Martin "Norman Jones" wrote: Hi Martin, Word-wrap willing: ActiveSheet.OLEObjects _ ("CommandButton1").Object.Caption = "Návrat" --- Regards, Norman "Norman Jones" wrote in message ... Hi Martin, You have already provided the code to name (or rename) the button yourself: ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption _ = "Návrat" --- Regards, Norman "Martin" wrote in message ... Thank you very much! Can i have last question? Can I change caption of button? It is worst: ActiveSheet.Buttons("Button 1").Caption = "Back" "Norman Jones" wrote: Hi Martim. Your problem is that you are not using a button from the Forms toolbar but a CommandButton from the Controls Toolbox. In the relevant worksheet module (right-click the worksheet tab | View Code), paste the following: Private Sub CommandButton1_Click() 'Your macro code here End Sub --- Regards, Norman "Martin" wrote in message ... Hi, thank you but it doesn't work, it shows me warning:"Can't get button property of worksheet class". Do you know where i make mistake? ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=521.25, Top:=174, Width:=253.5, Height:=34.5 ActiveSheet.OLEObjects("CommandButton1").Object.Ca ption = "Návrat" ActiveSheet.Buttons("CommandButton1").OnAction = "NavratZpet" "Norman Jones" wrote: Hi Martin, Try: ActiveSheet.Buttons("Button 1").OnAction = "MyMacro" --- Regards, Norman "Martin" wrote in message ... I want to create button with some code to worksheet. I can programm button but i don't know how can i do action for this button :-(. Do you know please? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete object code | Excel Discussion (Misc queries) | |||
| Chart Object VB Code | Charts and Charting in Excel | |||
| programming VBE - Deleting All Code From A Module | Excel Discussion (Misc queries) | |||
| HELP! Object specific Code | Excel Programming | |||
Linear Mode
