リボン関連

まばたきするリボン

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

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

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

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

  2. Office関連

    A1セルを選択してから保存するExcelアドイン

    @yu_tang_さんのツイートで面白いものがありました。…

  3. Office関連

    Re: 【Wordマクロ】Word起動時に、前回終了時に開いていたファイルを表示

    Word MVPの新田さんがブログで面白い記事を書かれていました。…

  4. リボン関連

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

    「リボンのトグルボタン」で回答したコードです(下に記載しているコードは…

  5. リボン関連

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

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

  6. リボン関連

    Office Ribbon Editorはウィルス?

    私のHP「Office Ribbon Editorの紹介」でも紹介して…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP