リボン関連

まばたきするリボン

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

[リボン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関連

    Google TTSで文字列を読み上げるExcelアドイン

    前回の記事で書いたGoogle TTSで文字列を読み上げるマクロ(言語…

  2. リボン関連

    リボンのコールバック関数の構文集

    今回は、リボンの各要素のonAction属性やgetImage…

  3. Office関連

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

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

  4. Office関連

    指定したセル範囲をUTF-8やEUC-JP等のテキストファイルとして出力するExcelアドイン

    以前この記事で、指定したセル範囲をUTF-8やEUC-JP等のテキスト…

  5. リボン関連

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

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

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP