図の削除（一部）　 次の文書

Sub 削除()
For Each sp In ActiveSheet.Shapes
If sp.Name = "変更" Or sp.Name = "削除" Then
ss = ss
Else
sp.Select
Selection.Delete
End If
Next
End Sub
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)