Excel VBA 質問スレ Part60

595 名前：デフォルトの名無しさん mailto:sage [2019/04/09(火) 11:49:39.06 ID:4ZugEZRH.net] まあ、なんだな久しぶりに実際に使ってみた ルーチンの仕様 １．フォームコントロールとActiveXコントロールで作成したShapeオブジェクトは全て残す ２．それ以外のShapeオブジェクトは全て消す ３．対象ShapeオブジェクトはActiveSheetのみ ３．フォームコントロールとActiveXコントロールどちらでも動作する Public Sub コントロール以外のイメージ削除() Dim shape1 As Shape For Each shape1 In ActiveSheet.Shapes 'MsgBox (shape1.Name & ":" & shape1.Type) 'これは確認用です・・・コメントアウト If shape1.Type <> msoOLEControlObject And shape1.Type <> msoFormControl Then shape1.Delete End If Next End Sub 実際に作成してみて感じたこと Nameプロパティは全て違うものが振られていく・・追番が付く フォームコント―ロールを使ってる人がやっぱいるんだ・・俺はActiveXコントロールしか 普段は使わない

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef