Ik heb een bepaalde applicatie in Excel gemaakt waarin een custom toolbar wordt aangemaakt die de gebruiker helpt om door het programma te navigeren, de rest is gelocked.
Dit werkt prima in Office versies t/m 2003, maar door de nieuwe opzet van 2007+ ontstaan problemen. Hierbij lijkt het namelijk niet meer mogelijk te zijn om de toolbar te customizen en te locken. Je kunt wel zelf opties in het ribbon-menu zetten, maar dit is een stuk minder mooi en je kunt dan nog gewoon bij alle andere opties uit de normale toolbar, wat eigenlijk niet de bedoeling is.
Weet iemand of hier een oplossing voor is? Hieronder een stukje code van hoe de toolbar nu wordt samengesteld:
Dit werkt prima in Office versies t/m 2003, maar door de nieuwe opzet van 2007+ ontstaan problemen. Hierbij lijkt het namelijk niet meer mogelijk te zijn om de toolbar te customizen en te locken. Je kunt wel zelf opties in het ribbon-menu zetten, maar dit is een stuk minder mooi en je kunt dan nog gewoon bij alle andere opties uit de normale toolbar, wat eigenlijk niet de bedoeling is.
Weet iemand of hier een oplossing voor is? Hieronder een stukje code van hoe de toolbar nu wordt samengesteld:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Dim ModelCommandBar As CommandBar
Dim OfficeVersion
OfficeVersion = Val(Application.Version)
If OfficeVersion >= 12 Then
Exit Sub
Else
Set ModelCommandBar = Application.CommandBars.Add("Toolbar", msoBarTop, True, True)
ModelCommandBar.Visible = True
With ModelCommandBar.Controls
With .Add(msoControlPopup)
.Caption = Sheets("Test").Cells(1,1).Formula
With .Controls
With .Add(msoControlButton)
.Caption = Sheets("Test").Cells(2,1).Formula
.OnAction = "Test1"
End With
With .Add(msoControlButton)
.Caption = Sheets("Test").Cells(3,1).Formula
.OnAction = "Test2"
End With
End With
End With
End If |