Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60485 / 76736

←次へ　｜　前へ→


	【20889】Re:ファイルサイズをできるだけ小さくしたい

かみちゃん - 04/12/23(木) 16:19 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> ブックにある全てのマクロボタンを削除するというマクロボタンを作って（やや
> こしいですね）、その状態で送信するって言う寸法というのは。。。

以下のコードでボタンを削除することができると思います。

Option Explicit

Sub Macro1()
　Dim ws As Worksheet
　Dim myShp As Shape
　
　'すべてのシートに対して処理する
　For Each ws In Worksheets
　　For Each myShp In ws.Shapes
　　　Select Case myShp.Type
　　　　'フォーム
　　　　Case msoFormControl
　　　　　'コマンドボタン
　　　　　If myShp.FormControlType = xlButtonControl Then
　　　　　　myShp.Delete
　　　　　End If
　　　　'コントロールツールボックス
　　　　Case msoOLEControlObject
　　　　　'オブジェクト名がCommandButtonで始まる場合
　　　　　If myShp.Name Like "CommandButton*" Then
　　　　　　myShp.Delete
　　　　　End If
　　　End Select
　　Next
　Next
End Sub

0 hits

▼

【20866】ぜひ御教授下さい。 ずいき 04/12/23(木) 13:31