リボン関連

まばたきするリボン

小ネタです。
ボタンをクリックするとリボンがまばたきします。

[リボンXML]

<?xml version="1.0" encoding="utf-8"?>
<customUI onLoad="rbnBlink_onLoad" xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="true">
    <tabs>
      <tab id="tabBlink" label="Blink Tab">
        <group id="grpBlink" label="Blink Group">
          <button id="btnBlink" label="Blink" size="large" imageMso="Recurrence" screentip="まばたきボタン" supertip="このボタンをクリックするとまばたきします。" onAction="btnBlink_onAction" />
          <button id="btnLeftEye" showLabel="false" size="large" getImage="btnBlink_getImage" />
          <button id="btnRightEye" showLabel="false" size="large" getImage="btnBlink_getImage" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

[標準モジュール]

Option Explicit

Private myRibbon As Office.IRibbonUI
Private flg As Boolean

Private Sub rbnBlink_onLoad(ribbon As IRibbonUI)
  Set myRibbon = ribbon
  flg = True
End Sub

Private Sub btnBlink_onAction(control As IRibbonControl)
  flg = Not flg
  myRibbon.Invalidate
End Sub

Private Sub btnBlink_getImage(control As IRibbonControl, ByRef returnedVal)
  If flg Then
    returnedVal = "VisibilityVisible"
  Else
    returnedVal = "VisibilityHidden"
  End If
End Sub

リボンからプリンタを選択して簡単に印刷できるようにする(Word)前のページ

「傍点をふる」をWord 2007/2010で簡単に使う方法次のページ

関連記事

  1. リボン関連

    続・Office Ribbon Editorがダウンロード出来ない?

    「Office Ribbon Editorがダウンロード出来ない?」で…

  2. リボン関連

    [リボン・カスタマイズ]splitButton要素の内容を動的に変更する。

    3年ほど前に書いた記事「menu内にあるbuttonの数を増やす」にコ…

  3. Office関連

    「クイックアクセスツールバーからPowerPointマクロを実行するアドイン」のコード

    2年ほど前に書いたPowerPointマクロの記事「クイックアクセスツ…

  4. Office関連

    [リボン・カスタマイズ]カスタムタブを共有する。

    ※ 2015/2/18 コードに一部誤りがあったので修正しました。…

  5. リボン関連

    PowerShellからリボンUIを呼ぶ方法

    下記記事で簡易的なUIとして手軽なHTAを使いました。…

  6. Office関連

    [リボン・カスタマイズ]splitButton要素で大量にある項目を使いやすくまとめる。

    「既存の機能の代わりにマクロを実行する」でコメント(下記)をいただきま…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP