| ページ一覧 | ブログ | twitter |　 書式 | 書式(表) |

MyMemoWiki

「Excel VBA」の版間の差分

提供: MyMemoWiki
ナビゲーションに移動 検索に移動
46行目: 46行目:
 
*[[Excel VBA 正規表現を使う|正規表現を使う]]
 
*[[Excel VBA 正規表現を使う|正規表現を使う]]
 
*[[Excel VBA GUIDを生成する|GUIDを生成する]]
 
*[[Excel VBA GUIDを生成する|GUIDを生成する]]
 +
=====アイコンを表示=====
 +
<pre>
 +
 +
Private Const MY_APP_FILE_MK        As String = "ツールバー名"            'ツールバー名
 +
Private Const BTN_MY_APP_FILE_MK    As String = "ボタン名"  'ボタン名
 +
'
 +
'ToolBarをセット
 +
'
 +
Private Sub loadToolBar()
 +
  Dim cbrGatherImgs  As CommandBar
 +
  Dim btnGetImages    As CommandBarButton
 +
  On Error Resume Next
 +
  ' コマンド バーが既に存在するかどうかを確認します。
 +
  ' Set cbrGatherImgs = CommandBars(MY_APP_FILE_MK)
 +
  ' コマンド バーが存在しない場合は作成します。
 +
  If cbrGatherImgs Is Nothing Then
 +
      Err.clear
 +
      Set cbrGatherImgs = CommandBars.add(MY_APP_FILE_MK)
 +
      ' コマンド バーを表示します。
 +
      cbrGatherImgs.Visible = True
 +
      ' ボタン コントロールを追加します。
 +
      Set btnGetImages = cbrGatherImgs.Controls.add
 +
     
 +
      With btnGetImages
 +
        .Style = msoButtonIconAndCaption
 +
        .Caption = BTN_MY_APP_FILE_MK
 +
        .Tag = BTN_MY_APP_FILE_MK
 +
        ' ボタンがクリックされたときに実行するプロシージャを指定します。
 +
        .OnAction = "warpExpMain"
 +
        .FaceId = 270&
 +
      End With
 +
  Else
 +
      ' 既存のコマンド バーを表示します。
 +
      cbrGatherImgs.Visible = True
 +
  End If
 +
End Sub
 +
'
 +
'ToolBarを削除
 +
'
 +
Private Sub unloadToolBar()
 +
  'On Error Resume Next
 +
  On Error GoTo errHandler
 +
 
 +
  ' 存在するコマンド バーを削除します。
 +
  CommandBars(MY_APP_FILE_MK).Delete
 +
   
 +
    Exit Sub
 +
errHandler:
 +
    'NOP
 +
End Sub
 +
</pre>
 +
 
====マクロサンプル====
 
====マクロサンプル====
 
*[[Microsoft Project から Excelに吐き出したタスクの見栄えをちょっと整えるマクロ]]
 
*[[Microsoft Project から Excelに吐き出したタスクの見栄えをちょっと整えるマクロ]]

2021年10月21日 (木) 07:55時点における版

| Excel |

Excel VBA

Tips

Excel操作

文字列操作

数値操作

ステートメント

ファイル操作

ディレクトリの存在チェック
If Dir(pathName, vbDirectory) = "" Then
   :
End If

オブジェクト操作

アイコンを表示

Private Const MY_APP_FILE_MK         As String = "ツールバー名"            'ツールバー名
Private Const BTN_MY_APP_FILE_MK     As String = "ボタン名"  'ボタン名
'
'ToolBarをセット
'
Private Sub loadToolBar()
   Dim cbrGatherImgs   As CommandBar
   Dim btnGetImages    As CommandBarButton
   On Error Resume Next
   ' コマンド バーが既に存在するかどうかを確認します。
   ' Set cbrGatherImgs = CommandBars(MY_APP_FILE_MK)
   ' コマンド バーが存在しない場合は作成します。
   If cbrGatherImgs Is Nothing Then
      Err.clear
      Set cbrGatherImgs = CommandBars.add(MY_APP_FILE_MK)
      ' コマンド バーを表示します。
      cbrGatherImgs.Visible = True
      ' ボタン コントロールを追加します。
      Set btnGetImages = cbrGatherImgs.Controls.add
      
      With btnGetImages
         .Style = msoButtonIconAndCaption
         .Caption = BTN_MY_APP_FILE_MK
         .Tag = BTN_MY_APP_FILE_MK
         ' ボタンがクリックされたときに実行するプロシージャを指定します。
         .OnAction = "warpExpMain"
         .FaceId = 270&
      End With
   Else
      ' 既存のコマンド バーを表示します。
      cbrGatherImgs.Visible = True
   End If
End Sub
'
'ToolBarを削除
'
Private Sub unloadToolBar()
  'On Error Resume Next
  On Error GoTo errHandler
  
   ' 存在するコマンド バーを削除します。
   CommandBars(MY_APP_FILE_MK).Delete
    
    Exit Sub
errHandler:
    'NOP
End Sub

マクロサンプル

ライブラリ

「https://www.typea.info/tips_/index.php?title=Excel_VBA&oldid=33853」から取得

© 2006 矢木浩人