システムwiki

どのようにしてプログラム的に次のようにします.

Cosmic- 受付中 最終更新日:2021-06-14 11:30

私は私が取り組んでいるPowerPoint VBAプロジェクトを持っていますが、私はちょっと「noob」ですので、私はいくつかの助けが必要です:

私はこの質問をここに投稿しましたが、それはすぐに答えられているので、私はこの非常にこれをする必要がありました すぐ.

私は達成したい:

-ボタンを押すと3つのスライドがあり、3つのスライドのすべてのスライド「タブストリップ」というタブを「APP1」

に追加します.

-同時にスライド2に行き、それは「App1」にタブストリップの選択だけを変更したいが、後で別のタブを追加し、固定順序にすることができないので数値的には変更されない.

-スライド2の別のボタンを押すと、すべてのスライドの「APP1」タブを削除し、スライド1

に移動します.

-スライド2と3の他のタブ「デスクトップ」を押すと、スライド1に戻りたい.

私はこれまでに以下をやった:

スライド1のボタン:

ActivePresentation.Slides(1).Shapes( "TabStrip1").OLEFORMAT.OBJECT.TABS.ADD.CAPTITION= "APP1"
ActivePresentation.Slides(2).Shapes( "TabStrip1").OLEFORMAT.OBJECT.TABS.ADD.CAPTION= "APP1"
ActivePresentationSlideshowWindow.View.gotoslide 2

ActivePresentation.Slides(2).Shapes( "TabStrip1").OLEFORMAT.OBJECT.TABS(APP1).SELECTED= true

スライド2のボタン:

ActivePresentation.Slides(1,2,3).SHAPES( "TABSTRIP1").OLEFORMAT.OBJECT.TABS.REMOVE(APP1)

ActivePresentation.SlideshowWindow.View.Gotoslide 1

「デスクトップ」を押す

IFActivePresentation.Slides(2,3).Shapes( "TabStrip1").OLEFORMAT.OBJECT.TABS(デスクトップ).Selected=
trueNatePresentation.SlidEShowWindow.View.Gotoslide 1
'壊れていない

しかし、それはうまくいきません.任意のアイデア?

返信リスト(回答:2)

2 #
Andreas

あなたはこのスレッドからコードを使うことができます

SelectionItemによってタブストリップからタブを削除しますか?

各スライドのタブストリップにアクセスするには、この

のような各ループにaを使用します.

各vacypresentation.Slides

についてごとに

ts= s.shapes( "tabstrip1")を設定します.OLEFORMAT.Object

他のスレッドのようにコードの残りの部分.

アンドレアス

応答2# ->にスキップ
1 #
Cosmic-

だからあなたは

を置く必要があります

ts= s.shapes( "tabstrip1")を設定します.OLEFORMAT.OBJECT?