vba - プログラムで PowerPoint 2010 の異なるスライドにある同一の図形を識別する

Question

新しい PowerPoint プラグインを作成しようとしています。スライド 1 の特定の形状について、次のスライドにも同じ形状が存在するかどうかを判断したい場合に問題が発生しました。

異なるスライドの形状を比較して、それらが同じかどうかを判断する方法はありますか?

おそらくタイプ、寸法、テキスト、およびその他の同様のプロパティを比較できますが、これはこの問題を解決する正しい方法ではない可能性があります。これを行うより良い方法はありますか？

Answer 1

このようなものは、基準を満たしていれば、別のスライドから「同一の」形状を返します。必要に応じて、代わりに True/False を返すようにすることもできます。

Function SameShape(oThisShape As Shape, oOtherSlide As Slide) As Shape

    Dim oSh As Shape

    For Each oSh In oOtherSlide.Shapes
        If oSh.Type = oThisShape.Type Then
            If oSh.Height = oThisShape.Height Then
                If oSh.Width = oThisShape.Width Then
                    ' other conditions here as required
                    Set SameShape = oSh
                    Exit Function
                End If
            End If
        End If
    Next

End Function

1 つの注意点: 図形の .Type = msoPlaceholder の場合、.PlaceholderFormat.ContainedType が同じかどうかも確認する必要があります。