リボン関連

まばたきするリボン

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

[リボン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 XP Developer Toolsでリボン対応のCOMアドインを作成する。

    「Visual Basic 6でリボン対応のアドインを作成する」ではV…

  2. Office関連

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

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

  3. リボン関連

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

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

  4. Office関連

    メモ帳だけでOutlook用アドインを作ってみる。

    「SharpDevelopでExcel用COMアドインを作成する方法」…

  5. Office関連

    Office 2013のコントロールIDリストが更新されました。

    「コントロールID 一覧(Office 2013)」でも紹介しているO…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP