人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

パワーポイントで同じ色のオートシェイプを形状に関係なく選択する方法(マクロのソースコードなど)をお教えください。また、同じ色で同じ形状のオートシェイプのみを選択する方法もすぐにわかれば合わせてお願いできると助かります。

●質問者: arakai
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:にわか ソースコード トシ パワーポイント マクロ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● bmax
●80ポイント ベストアンサー

選択中のスライドを対象に以下の操作を実行します。

選択中のオートシェイプと同じ色のシェイプを一括選択。

Sub SelectSameColor()


Dim myShape As Shape

Dim ShapesCount As Integer

Dim ArrayIndex As Integer


ShapesCount = ActiveWindow.Selection.SlideRange.Shapes.Count

ArrayIndex = 0

ReDim ShapesArray(1 To ShapesCount)


For i = 1 To ShapesCount

If ActiveWindow.Selection.SlideRange.Shapes.Item(i).Fill.ForeColor = ActiveWindow.Selection.ShapeRange.Fill.ForeColor Then

ArrayIndex = ArrayIndex + 1

ShapesArray(ArrayIndex) = ActiveWindow.Selection.SlideRange.Shapes.Item(i).Name

End If

Next



ActiveWindow.Selection.SlideRange.Shapes.Range(ShapesArray).Select


End Sub


選択中のオートシェイプと同じ色で同じ形状のシェイプを一括選択。

Sub SelectSameColorAndType()


Dim myShape As Shape

Dim ShapesCount As Integer

Dim ArrayIndex As Integer


ShapesCount = ActiveWindow.Selection.SlideRange.Shapes.Count

ArrayIndex = 0

ReDim ShapesArray(1 To ShapesCount)


For i = 1 To ShapesCount

If ActiveWindow.Selection.SlideRange.Shapes.Item(i).Fill.ForeColor = ActiveWindow.Selection.ShapeRange.Fill.ForeColor _

And ActiveWindow.Selection.SlideRange.Shapes.Item(i).AutoShapeType = ActiveWindow.Selection.ShapeRange.AutoShapeType Then

ArrayIndex = ArrayIndex + 1

ShapesArray(ArrayIndex) = ActiveWindow.Selection.SlideRange.Shapes.Item(i).Name

End If

Next



ActiveWindow.Selection.SlideRange.Shapes.Range(ShapesArray).Select


End Sub

◎質問者からの返答

ありがとうございます。これは大変便利です!

ラインの場合でも使えるように、ラインまたは枠の色が同じものだけについて選択するものもいただけると助かります。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ