如何实现点击某一单元格，在选项卡的“行高”组合框中显示当前行的行高

cm96999

如何实现点击某一单元格，在选项卡的“行高”组合框中显示当前行的行高。

山菊花

Public rowRib As IRibbonUI   '1 ：定义变量

Sub Ribbon_Load(ribbon As IRibbonUI)
    Set rowRib = ribbon '2：将功能区对象保存到全局变量rowRib
End Sub

'3：在 ThisWorkbook 模块两事件中执行命令：   

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    rowRib.InvalidateControl "rowheightselect" '刷新控件
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    rowRib.InvalidateControl "rowheightselect"'刷新控件
End Sub

cm96999

真没想到山大侠如此热心，如此神速。一下解决了我好多天都没有解决的问题。可见山大侠武功之高，基础之扎实。
请教一下，我学习Ribbon技术，有什么好的书籍，能不能推荐一两本？目前我只看过“细品Ribbon”，里面讲解得还是不够透彻。

山菊花

《细品Ribbon》是Ribbon技术的经典，讲得很是透彻，要反复读，要细品。
《RibbonX：自定义Office 2007功能区》学习心得
http://club.excelhome.net/thread-709306-1-1.html
(出处: ExcelHome技术论坛)

cm96999

好，感谢。可能是我看得还不够，还要继续学习。

另外：1. 我在您提到的链接中下载Custom UI Editor还是不支持中文，不知是怎么回事，请赐教。
http://club.excelhome.net/thread-948458-1-1.html

2. 关于设置行高还有一个问题不知道怎么解决：点击“增加行高”或“减少行高”后，如何做到组合框中的数值跟随当前行高自动变化。请教。

山菊花

cm96999 发表于 2020-1-23 08:40
好，感谢。可能是我看得还不够，还要继续学习。

另外：1. 我在您提到的链接中下载Custom UI Editor还是 ...

1、它支持中文，我现在用的就是这里下载的。或者自己上网搜索一下，看是否有新的版本。
2、还是用刷新那一句代码。

cm96999

我重新下载了，还是不支持中文。是不是我缺少什么插件？

443791398

都是大神  学习了

山菊花

cm96999 发表于 2020-1-23 10:29
我重新下载了，还是不支持中文。是不是我缺少什么插件？

看到的代码是是不是粘贴进去的？
直接输入中文行不行？

cm96999

直接输入中文也不行。山版主能否将你的OfficeCustomUIEditorSetup发上来？