Ðåôåðåíñ Îôèñà 2007 vs 2010
|
|
Ñðåäà, 06 Ìàÿ 2015 ã. 16:40
+ â öèòàòíèê
Äîáðûé äåíü !
Ïîäñêàæèòå ðåøåíèå, ïîæàëóéñòà.
Ñîçäàë áàçó â Access 2003.
Íà ìîåé ìàøèíå ñòîèò Îôèñ 2010. Ññûëêà â ðåôåðåíñàõ - Microsoft Office 15.0 Object Library
Òàì ãäå áóäåò ðàáîòàòü - Îôèñ 2007. Ññûëêà â ðåôåðåíñàõ - Microsoft Office 12.0 Object Library
Ñ âîðäîì è ýêñåëåì ñïðàâèëñÿ ïîçäíèì ñâÿçûâàíèåì. À êàê áûòü ñ "Microsoft Office" ?!
Ó ìåíÿ ñ åãî ïîìîùüþ ñäåëàíû ìåíþ. Ñàìî ìåíþ ìåíÿåòñÿ ïðîãðàììíî.
Åñòü, êîíå÷íî, çàïàñíîé âàðèàíò: ìåíÿþ ññûëêó â ðåôåðåíñàõ íà ìàøèíå ñ 2003 îôèñîì, ïåðåñîõðàíÿþ ôàéë.
È òîãäà, ïðè çàïóñêå, íà ìàøèíå ñ áîëåå ïîçäíèì îôèñîì âñå ðàáîòàåò.
Íî õîòåëîñü áû êàê-òî óïðîñòèòü ïðîöåäóðó.
Âîò óðåçàííûé âàðèàíò ýòîãî ìåíþ.
Function Start()
Dim MyMenuBar As CommandBar
Dim Ctr_Pop As CommandBarPopup
Dim Ctr_Pop_but As CommandBarButton
'-------------
Set MyMenuBar = CommandBars.Add(Name:="MyMenu", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
MyMenuBar.Visible = True
MyMenuBar.Protection = msoBarNoMove
'====================================================
Set Ctr_Pop_but = MyMenuBar.Controls.Add(msoControlButton)
With Ctr_Pop_but
.Style = msoButtonCaption
.Caption = "Kassets"
.TooltipText = "Help text"
.FaceId = 202
.OnAction = "=Fnd()"
.Parameter = "kass"
.BeginGroup = True
End With
'====================================================
End Function
Function Fnd()
Dim MyMenu As CommandBar, pr As String
'------------------------------------
Set MyMenu = CommandBars("MyMenu")
'------------------------------------
' The ActionControl property of command bars returns the control
' whose OnAction property is running this procedure.
pr = CommandBars.ActionControl.Parameter
Select Case pr
Case Is = "kass"
MsgBox "Clic on Menu"
End Select
End Function
http://www.sql.ru/forum/1155356/referens-ofisa-2007-vs-2010
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-