SelectionItemによってタブストリップからタブを削除しますか?
TabStripにアイテムを追加して、タブストリップの「SelectedItem」を参照して物事を実行できるように、VBAを使用して現在選択されているタブを削除できますか.
返信リスト(回答:9)
ここに滞在する、私はVBAプログラマーです.
ユーザーフォームのタブストリップコントロールに関するヘルプが必要ですか?
最善として、www.dropbox.comのようなオンラインファイルホスターでファイル(たぶん匿名データで)アップロードして、ここにダウンロードリンクを投稿してください.
アンドレアス.
応答6# ->にスキップ5 #Cosmic-私は質問にはファイルがありませんが、私が尋ねるものは簡単です:
PowerPointのCommandButtonを押して、同じスライド上のタブストリップの[選択]タブを削除するように機能します.
私の答えが圧倒的に言及されていれば申し訳ありません.
応答5# ->にスキップ4 #Andreas私はあなたの言う事が分かります.質問は単純に見えるかもしれませんがそうではありません.あなたが私よりもスライドを違うとあなたのスライドを造るならば、私の答えはあなたのために働かないでしょう.
したがって、私のファイルに対する要求.
アンドレアス.
応答3# ->にスキップ2 #Andreas 1完璧な、今私たちは始めることができます.私はあなたのファイルを修正してこの変更を加えました:
Slide4で追加されたコードの例Slide5のコードは間違ってコメントアウトされています.
オプションの明示的
プライベートサブCommandButton1_Click()
'現在のタブを削除します
MSFORMS.TABSTRIPとしてDIM TS
ts= me.shapes( "tabstrip1")を設定します.OLEFORMAT.Object
TSと
'削除できるタブがありますか?
.tabs.count= 0の場合、Sub.
'はい、アクティブなタブを削除します
.tabs.remove.SelectedItem.Index
際に終わる
終了サブ
プライベートサブCommandButton2_Click()
'新しいタブを追加します
MSFORMS.TABSTRIPとしてDIM TS
MSFORMS.TABのようにDIM T
ts= me.shapes( "tabstrip1")を設定します.OLEFORMAT.Object
TSと
'左側に新しいものを追加してください
t=.tabs.add(、 "qwe"、0)を設定します
'そのタブを有効にします
TS.Value= T.Index
際に終わる
終了サブ
1つのことが言うことです:あなたはTabStrip(例えば、図形とあなたが別のタブに切り替えると、形状は隠されていない場合)に「アイテムを追加」することはできません.
その動作が必要な場合は、これらのオブジェクトを非表示にする必要があります(set visible= false)
アンドレアス.√
こんにちはコスミックレイ、
VBAで行うことができるすべて、MSDN Officeセクションで質問を投稿してください.その上にあなたはあなたにとってより速くそしてより知られている答えを提供する多くのVBAプログラマーにアクセスすることができます...
social.msdn.microsoft.com/Forums...