PowerPoint 2007 では、PickUp/Apply は、プログラム (VBA) で使用すると、箇条書きの書式設定など、一部の段落の書式設定をキャプチャしません。PickUp ボタンと Apply ボタンを Quick Access Toolbar (QAT) に追加し、これを手動で試すと、これが確認されます。
ただし、箇条書きの段落をトリプルクリックして QAT から [ピックアップ] を選択し、別の図形の別の箇条書きに移動してトリプルクリックし、QAT から [適用] を選択すると、箇条書きの書式設定が正常に適用されます。
プログラムによる私のアプローチは、ソース シェイプのすべての段落を選択して PickUp を使用し、次にターゲット シェイプのすべての段落を選択して Apply を使用することでした。それはうまくいきませんでした。たとえば、次のいくつかのバリエーションを試しました。
'oSource.TextFrame.TextRange.Select
oSource.TextFrame.TextRange.Paragraphs.Select
oSource.PickUp
'oTarget.TextFrame.TextRange.Select
oTarget.TextFrame.TextRange.Paragraphs.Select
oTarget.Apply
では、PickUp/Apply またはその他の手法 (もちろん VBA) を使用して、各 Paragraph プロパティを個別にコピーせずに、PopwerPowin 2007 である図形の段落書式を別の図形に適用するにはどうすればよいでしょうか?