Dell KACE
AppDeploy

 

Create a button in Excell with vbs
3/8/2010 | Submitted By robesini
 
'=====================================================================================================
' WAT DOET DIT SCRIPT: Voorbeeld script om een werkbalk met knop in Excel toe te voegen.
'------------------------------------------------------------------------------------------------------
' HOE DIT SCRIPT TE GEBRUIKEN:
' 1. INPUT: N.V.T
' 2. OUTPUT: Button in Excel
' 3. PARAMETRS: N.V.T
'-----------------------------------------------------------------------------------------------------
' NAAM: A_InstallButton.VBS
' AUTEUR: Roberto Pibia
' VERSIE TEMPLATE: 1.0
' COMMENTAAR 26-02-2010,
' VERSIE TEMPLATE: x.x
' COMMENTAAR , :
'
'=====================================================================================================

'On Error Resume Next

Const cmdBarName = "wbDIS"

Const cmdBarStyleStandard = 0
Const cmdBarStyleIconOnly = 1
Const cmdBarStyleCaptionOnly = 2
Const cmdBarStyleIconAndCaption = 3

Const cmdBarPositionLeft = 0
Const cmdBarPositionTop = 1
Const cmdBarPositionRight = 2
Const cmdBarPositionBottom = 3
Const cmdBarPositionFLoating = 4

Const cmdBarProtectionOff = 0
Const cmdBarProtectionOn = 1

Const cmdBarIconNr = 39

Dim oXL
Dim oAddin

Set oXL = CreateObject("Excel.Application")

createMenuBar


'Sub to install the button
'---------------------------------------------------
Sub createMenuBar()
Dim wbDIS, bExists


bExists = False

For Each bar In oXL.CommandBars
If bar.Name = cmdBarName Then
bExists = True
End If
Next

If bExists = False Then
oXL.CommandBars.Add(cmdBarName)
'oXL.CommandBars(cmdBarName).Name = "Roberto"
oXL.CommandBars(cmdBarName).Position = cmdBarPositionTop
oXL.CommandBars(cmdBarName).Visible = True
oXL.CommandBars(cmdBarName).Protection = cmdBarProtectionOff
End If


Set wbDIS = oXL.CommandBars.Item(cmdBarName)

If wbDIS.Controls.Count = 0 Then
wbDIS.Controls.Add
wbDIS.Controls(1).DescriptionText = "Opslaan in DIS"
wbDIS.Controls(1).OnAction = "OpslaanIn..."
wbDIS.Controls(1).Caption = "Opslaan in ..."
wbDIS.Controls(1).Style = cmdBarStyleIconAndCaption
wbDIS.Controls(1).FaceId = cmdBarIconNr
wbDIS.Controls.Add
wbDIS.Controls(2).DescriptionText = "Openen in ..."
wbDIS.Controls(2).OnAction = "OpenenInDis"
wbDIS.Controls(2).Caption = "Openen in ..."
wbDIS.Controls(2).Style = cmdBarStyleIconAndCaption
wbDIS.Controls(2).FaceId = cmdBarIconNr
End If

Set wbDIS = Nothing

End Sub

oXL.Quit
Set oXL = Nothing

Printer Friendly Version
  
Problem? Question? Comment? Please, let us know!
Return to AppDeploySM Tips and Tricks.