Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58241 / 76732 ←次へ | 前へ→

【23223】Re:ツールバーの「ボタンを1行に表示」
発言  G-Luck  - 05/3/16(水) 16:46 -

引用なし
パスワード
   ▼tomo さん:
かなり強引なやり方ですが、

lngIndentの値だけ変化します。

Sub test()
  Dim com3 As CommandBar
  Dim com4 As CommandBar
  Dim lngIndent As Long
  
  Application.ScreenUpdating = False
  
  Set com3 = Application.CommandBars("standard")
  Set com4 = Application.CommandBars("formatting")
  lngIndent = -10
  
  com3.Left = 0
  
  With com4
    .Left = 1
    .RowIndex = com3.RowIndex
    com3.RowIndex = com3.RowIndex + 1
    com3.RowIndex = .RowIndex
    .Left = com3.Width + lngIndent
  End With

  Application.ScreenUpdating = True
End Sub

0 hits

【23167】ツールバーの「ボタンを1行に表示」 tomo 05/3/15(火) 14:09 質問
【23171】Re:ツールバーの「ボタンを1行に表示」 G-Luck 05/3/15(火) 15:03 発言
【23183】Re:ツールバーの「ボタンを1行に表示」 tomo 05/3/15(火) 17:14 質問
【23184】Re:ツールバーの「ボタンを1行に表示」 G-Luck 05/3/15(火) 17:27 発言
【23188】Re:ツールバーの「ボタンを1行に表示」 tomo 05/3/15(火) 18:56 お礼
【23223】Re:ツールバーの「ボタンを1行に表示」 G-Luck 05/3/16(水) 16:46 発言

58241 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free