Yahoo!ショッピング

2019年10月19日

Office CustomUI

Office2016で不要なリボンを非表示にするにはCustomUIを使う必要がある。
CustomUIはXML形式で記述する。
以下は描画ツール以外すべて非表示にするサンプル
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="true">
<tabs>
<tab idMso="TabHome" visible="false" />
<tab idMso="TabInsert" visible="false" />
<tab idMso="TabDesign" visible="false" />
<tab idMso="TabTransitions" visible="false" />
<tab idMso="TabAnimations" visible="false" />
<tab idMso="TabSlideShow" visible="false" />
<tab idMso="TabReview" visible="false" />
<tab idMso="TabView" visible="false" />
<tab idMso="TabDeveloper" visible="false" />
<tab idMso="TabAddIns" visible="false" />
<tab idMso="TabPrintPreview" visible="false" />
<tab idMso="TabMerge" visible="false" />
<tab idMso="TabGrayscale" visible="false" />
<tab idMso="TabBlackAndWhite" visible="false" />
<tab idMso="TabBroadcastPresentation" visible="false" />
<tab idMso="TabSlideMaster" visible="false" />
<tab idMso="TabHandoutMaster" visible="false" />
<tab idMso="TabNotesMaster" visible="false" />
<tab idMso="TabBackgroundRemoval" visible="false" />
<tab idMso="TabSlideMasterHome" visible="false" />
<tab idMso="HelpTab" visible="false" />
<tab id="tabTouch" label="手書き" insertBeforeMso="TabHome">
<group id="grpUndo" label="元に戻す" autoScale="true">
<control idMso="Undo" size="large" visible="true" />
</group>
<group id="grpInkTool" label="ツール" autoScale="true">
<toggleButton idMso="InkSelect" size="large" visible="true" />
<toggleButton idMso="FingerPaintingMode" size="large" visible="true" />
<toggleButton idMso="DrawInkMode" size="large" visible="true" />
<toggleButton idMso="InkEraser" size="large" visible="true" />
</group>
<group id="grpPens" label="ペン" autoScale="false">
<control idMso="InkToolbox" size="large" visible="true" />
</group>
</tab>
</tabs>
</ribbon>
<backstage>
<button idMso="FileSave" visible="false"/>
<button idMso="FileSaveAs" visible="false"/>
<button idMso="FileOpen" visible="false"/>
<button idMso="FileClose" visible="false"/>
<button idMso="ApplicationOptionsDialog" visible="false"/>
<button idMso="FileExit" visible="false"/>
<button idMso="HistoryTab" visible="false"/>
<button idMso="OfficeFeedback" visible="false"/>
<tab idMso="TabHome" visible="false"/>
<tab idMso="TabInfo" visible="false"/>
<tab idMso="TabRecent" visible="false"/>
<tab idMso="TabNew" visible="false"/>
<tab idMso="TabPrint" visible="false"/>
<tab idMso="TabShare" visible="false"/>
<tab idMso="TabHelp" visible="false"/>
<tab idMso="TabPublish" visible="false"/>
<tab idMso="TabSave" visible="false"/>
<tab idMso="TabOfficeStart" visible="false"/>
<tab idMso="Publish2Tab" visible="false"/>
</backstage>
</customUI>
posted by 秘構竜 at 18:02 | Comment(0) | Office365

2019年10月16日

VBAでPowerPointを起動してサムネイルを非表示にする

VBAでPowerPointを起動してサムネイルを非表示にする

Sub test()
Dim pp_app As Object
Dim objWSH As Object
const ppViewSlide = 1
Set pp_app = CreateObject("PowerPoint.Application")
pp_app.Visible = True
pp_app.Presentations.Open "C:\temp\samp.pptx"
Set objWSH = CreateObject("WScript.Shell")
objWSH.AppActivate pp_app.Caption
pp_app.ActiveWindow.viewtype = ppViewSlide

SendKeys "%JIW"
DoEvents

Set pp_app = Nothing
Set objWSH = Nothing
End Sub
posted by 秘構竜 at 22:48 | Comment(0) | 技術系

【温泉】ホテル・旅館ランキング(全国)
秘構竜の日記」の先頭へ