1

私は次のようなものを使用して、PowerPoint内の図形からテキストを取得します。

s = ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text

ただし、テキストに太字、下線付き、サイズ変更（など）のテキストが図形内にある場合（図形内の特定の単語またはフレーズのみを意味します）、.Textプロパティはすべてをプレーンテキストに変換します。

形状の定型化されたマークアップ（おそらくRTF）を取得しようとしています。

テキストをコピーして（強調表示して右クリックし、[コピー]を選択）、ワードパッドに貼り付けると、すべてが保持されることがわかります。ただし、プログラムでアクセスできる.RTFTextプロパティ（または同様のもの）は表示されません。TextRange

誰かがこれをプログラムで（私が思うにVBAを介して）行う方法を知っていますか？

ありがとう -

4

1 に答える 1

2

サポートされている唯一の方法は、クリップボードへのアクセスを自動化することだと思います。VBAコピーを実行して、クリップボードからテキストを自分で取得します。エレガントではなく、ユーザーには副作用が目立ちますが...

于 2009-04-19T17:25:51.523 に答える