请教VBA代码中断后，全局IRibbonUI变量丢失问题

gegezhu · 发表于 2013-6-14 20:48

今天使用了，不过注意楼主提供代码的一处小错误
Function GetRibbon(ByVal lRibbonPointer As Long) As Object
      If not Rib is nothing then set getribbon=rib:exit function
      Dim objRibbon As Object, lngRibPointer as long
      lngRibPointer=getsetting("CustomeUI",thisworkbook.name,"RibbonPointer")
      CopyMemory objRibbon, lngribpointer, LenB(lngribpointer)
      Set GetRibbon = objRibbon
      Set objRibbon = Nothing
End Function

aarua · 发表于 2014-5-8 20:08

如何调用此函数了？

VBA万岁 · 发表于 2014-5-8 20:36

cooloaky 发表于 2011-6-4 21:22
功夫不负有心人。终于找到解决全局变量丢失的问题啦！

解决问题的办法是在加载ribbon的时候，通过ObjPtr ...

又学了一招，谢谢！

aarua · 发表于 2014-5-9 20:14

是在哪个事件中应用这个函数？可否丢失后自动重新获取了？

qdofficer · 发表于 2014-5-24 15:45

调用此函数时候，需要lRibbonPointer参数，这个参数如何指定，从哪儿获得？
我用的是vba

yfzdb · 发表于 2014-8-19 18:57

真的很赞，可以处理全局变量丢失的问题谢谢

xie71 · 发表于 2016-3-6 17:17

这个方法太好了，刚好解决了我的问题。

lytyuan · 发表于 2016-3-18 11:29

非常棒，可以随时获得对ribbon对象的控制，非常感谢!

4053005 · 发表于 2017-3-17 14:55

使用了这个以后,每次一关闭EXCEL就显示失去响应...

gdzrh917 · 发表于 2017-9-25 17:35

学习受益留名，谢谢楼主！

		自动登录	找回密码
密码			免费注册

[求助] 请教VBA代码中断后，全局IRibbonUI变量丢失问题