我为我们的员工在PowerPoint中制作了一个自定义功能区。功能区上的大多数命令都链接到自定义构建的VBA脚本,但我想包含一个标准的MSO Gallery命令(MSO:SlideNewGallery
)。
我已成功将按钮添加到功能区。看起来不错,但不起作用。我不知道如何将操作调用到标准的MSO gallery命令。我尝试编写VBA脚本但是库命令在VBA中不能正常工作,因此脚本只创建一个新幻灯片而不显示SlideNewGallery
选项。
我是自学成才,我想我可能只是错过了一些非常简单的事情。
我的问题:
这是我的功能区xml:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonControl.Onload">
<ribbon>
<tabs>
<tab id="CustomTab1" label="Insurance">
<group id="CustGrp1" label="Template" >
<button id="Btn1" label="New Presentation" screentip="Create a new presentation" image="Default" size="large" onAction="RibbonControl.MyBtnMacro" />
</group>
<group id="CustGrp20" label="Insurance Resources" >
<gallery id="SlideNewGallery" label="New Slide" screentip="Insert an new slide" imageMso="SlideNewGallery" size="large" onAction="RibbonControl.MyBtnMacro" />
<button id="Btn22" label="Insert Herman" screentip="Insert a Herman Picture" image="HermanIcon" size="large" onAction="RibbonControl.MyBtnMacro" />
<button id="Btn23" label="Insert Logo" screentip="Insert a logo for OMA Insurance or any of our affilliates" image="OMAInsurance" size="large" onAction="RibbonControl.MyBtnMacro" />
<button id="Btn21" label="Content Ideas" screentip="See or copy our favourite insurance presentations" imageMso="BuildingBlockProperties" size="large"
onAction="RibbonControl.MyBtnMacro" />
<button id="Btn24" label="Insurance Brand Standards" screentip="Go to the Insurance Brand Standards Document" image="Brand" size="large" onAction="RibbonControl.MyBtnMacro" />
</group>
<group id="CustGrp3" label="Tools" >
<button id="Btn30" label="Convert to Brand" screentip="Convert this Presentation to BRAND style" image="Convert" size="large" onAction="RibbonControl.MyBtnMacro" />
<button id="Btn31" label="Reset Slide" screentip="Apply the fonts and layouts of our Brand" imageMso="QuickStepsGallery" size="large"
onAction="RibbonControl.MyBtnMacro" />
<button id="Btn32" label="Insert Asterisk" screentip="Insert an Asterisk" image="AsteriskIcon" size="large" onAction="RibbonControl.MyBtnMacro" />
<button id="Btn33" label="Select Everything" screentip="Select all the text in the active area" imageMso="LassoSelect" size="large" onAction="RibbonControl.MyBtnMacro" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
答案 0 :(得分:1)
感谢您的帮助,我最终通过将mso放在每个元素前面来完成所有工作。
我不确定为什么会这样......但现在一切都很好。以下是工作代码。
<mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui"><mso:ribbon><mso:tabs><mso:tab id="CustomTab1" label="Insurance">
<mso:group id="CustGrp1" label="Template" ><mso:button id="Btn1" label="New Presentation" screentip="Create a new presentation" image="Default" size="large" onAction="RibbonControl.MyBtnMacro" /><mso:gallery idQ="mso:SlideNewGallery" size="large" showInRibbon="false" visible="true"/>
</mso:group>
<mso:group id="CustGrp2" label="Insurance Resources" >
<mso:button id="Btn22" label="Insert Herman" screentip="Insert a Herman Picture" image="HermanIcon" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn23" label="Insert Logo" screentip="Insert a logo for OMA Insurance or any of our affilliates" image="OMAInsurance" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn21" label="Content Ideas" screentip="See or copy our favourite insurance presentations" imageMso="BuildingBlockProperties" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn24" label="Insurance Brand Standards" screentip="Go to the Insurance Brand Standards Document" image="Brand" size="large" onAction="RibbonControl.MyBtnMacro" />
</mso:group>
<mso:group id="CustGrp3" label="Tools" >
<mso:button id="Btn30" label="Convert to Brand" screentip="Convert this Presentation to BRAND style" image="Convert" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn31" label="Reset Slide" screentip="Apply the fonts and layouts of our Brand" imageMso="QuickStepsGallery" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn32" label="Insert Asterisk" screentip="Insert an Asterisk" image="AsteriskIcon" size="large" onAction="RibbonControl.MyBtnMacro" />
<mso:button id="Btn33" label="Select Everything" screentip="Select all the text in the active area" imageMso="LassoSelect" size="large" onAction="RibbonControl.MyBtnMacro" />
</mso:group>
</mso:tab></mso:tabs></mso:ribbon></mso:customUI>
答案 1 :(得分:0)
使用
<control idMso="SlideNewGallery"
size="large"/>
如果使用图库,缩略图可能无法正确更新