エクセルで線をセレクト

質問

アクティブシート内の全ての線（オブジェクト)をセレクト状態にするマクロを教えて頂けますでしょうか。

ちなみに、

ActiveSheet.Shapes.Line.SelectAll

ではダメでした。

回答No.1

noname#187541 · ベストアンサー

おはようございます。

Dim myshp As Shape
For Each myshp In ActiveSheet.Shapes
If myshp.Type = 9 Then
myshp.Select Replace:=False
End If
Next

でどうでしょうか。

お礼

有難うございました。