Excel VBA質問箱 IV

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

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


39805 / 76732 ←次へ | 前へ→

【42033】CommandBarControlのmsoControlEditにつ...
質問  kobasan  - 06/8/30(水) 7:09 -

引用なし
パスワード
   おはようございます。
表題の件について、よろしくお願いします。

この質問箱でmsoControlEditを知り、使っています。
CommandBarにmsoControlEditをつくっていますが、このmsoControlEditを
ヘルプで検索しても、「質問の意味がわかりません」と出ます。

まず、このTextBox風のmsoControlEditの名前は何でしょうか。
(1)のCommandBarControl をより正確にの指定するには、何を指定するのがいいのでしょうか。  (メソッド,プロパティのメンバーを正確に表示するために。cmmandBarControl では、.Style も.Text もメンバーとして表示されません)

(2)Captionを設定するために、.Style = msoComboLabel を使っています。
  一応望みどおりの動きをしますが、msoControlEditでmsoComboLabel を使っているので、すっきりしません。もっと適切な指定があるのでしょうか。

Sub cmdBarEditBox()
Dim 親 As CommandBar, myControl
Dim ctrlEdit As CommandBarControl '<-----------(1)
  Del_cmdBar '取り合えず最初にツールバー削除
  Set 親 = CommandBars.Add(Name:="cmdBar抽出", temporary:=True)
  Set ctrlEdit = 親.Controls.Add(Type:=msoControlEdit, temporary:=True)
  With ctrlEdit
    .BeginGroup = True
    .Style = msoComboLabel '.Caption を設定するため '<-----(2)
    .Caption = "AAA"
    .TooltipText = "aaa"
    .Text = "bbb"
    .Width = 85
    '.OnAction = macroName
  End With
  親.Visible = True
End Sub
0 hits

【42033】CommandBarControlのmsoControlEditにつ... kobasan 06/8/30(水) 7:09 質問
【42036】Re:CommandBarControlのmsoControlEditにつ... りん 06/8/30(水) 9:01 回答
【42050】Re:CommandBarControlのmsoControlEditに... kobasan 06/8/30(水) 13:40 お礼

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