|
おはようございます。
表題の件について、よろしくお願いします。
この質問箱で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
|
|