使用IUIAutomationClient对象清空Office剪贴板

lss001

perfect131 发表于 2024-6-27 17:12
无效
我用IUIAutomationClient 获取高度解决了
点击3次 按钮1  来查看三种效果

总感觉用数字表示有点不准？
有时间还是考虑写一下完全用UI判断！

perfect131

lss001 发表于 2024-6-27 17:48
总感觉用数字表示有点不准？
有时间还是考虑写一下完全用UI判断！

太难了
好像 81 跟 26 就是固定值

lss001

perfect131 发表于 2024-6-27 18:23
太难了  
好像 81 跟 26 就是固定值

难才好玩

perfect131

lss001 发表于 2024-6-27 18:25
难才好玩

https://club.excelhome.net/threa ... tml?_dsign=5753444c
这道题 怎么用IUIAutomationClient 从公式 -->函数库-->其他函数-->兼容性 获取窗格列表呢 不要从vbe中获取worksheetfunction

inspect.exe UI

lss001

perfect131 发表于 2024-6-27 18:34
https://club.excelhome.net/threa ... tml?_dsign=5753444c
这道题 怎么用IUIAutomationClient 从公式 ...

此项目正在进行中……

lss001

perfect131 发表于 2024-6-27 18:34
https://club.excelhome.net/threa ... tml?_dsign=5753444c
这道题 怎么用IUIAutomationClient 从公式 ...

https://learn.microsoft.com/zh-cn/office/vba/api/overview/library-reference/commandbars-members-office
看EXCEL帮助文件终于找到判断功能区是否隐藏
使用GetPressedMso方法才是简单靠谱的！
If Not CommandBars.GetPressedMso("HideRibbon") Then
  CommandBars.ExecuteMso "HideRibbon"
End If

'同样的可以判断功能区是否最小化
If Not CommandBars.GetPressedMso("MinimizeRibbon") Then
  CommandBars.ExecuteMso "MinimizeRibbon"
End If

lss001

perfect131 发表于 2024-6-27 18:34
https://club.excelhome.net/threa ... tml?_dsign=5753444c
这道题 怎么用IUIAutomationClient 从公式 ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1696029&extra=&mobile=2&_dsign=bf5e0db8
请参考以上链接