リボン関連

まばたきするリボン

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

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

    Office 2016で“ヤツ”を召喚してみた。

    4月1日にMicrosoft Office公式アカウント、MSOffi…

  2. Office関連

    [リボン・カスタマイズ]dynamicMenu要素から任意のマクロを実行する。

    HPのお問い合わせフォームから下記の質問がありました。「メニュ…

  3. リボン関連

    複数のtoggleButton要素の中から1つだけしかオンにできないようにする(2)

    「複数のtoggleButton要素の中から1つだけしかオンにできない…

  4. Word

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

    今回はdynamicMenu要素のgetContent属性のコールバッ…

  5. リボン関連

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

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

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP