Excel VBA質問箱 IV

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

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


60481 / 76732 ←次へ | 前へ→

【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 質問
【20868】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 13:41 発言
【20869】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 13:45 質問
【20872】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 13:53 質問
【20873】Re:ファイルサイズをできるだけ小さくしたい ちゃっぴ 04/12/23(木) 13:59 回答
【20875】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:11 質問
【20876】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:16 質問
【20879】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 14:24 発言
【20881】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:35 質問
【20882】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:42 質問
【20883】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 15:03 回答
【20884】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 15:18 お礼
【20889】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 16:19 回答
【20944】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/27(月) 14:35 お礼
【20946】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/27(月) 15:18 質問
【20870】Re:ぜひ御教授下さい。 YN61 04/12/23(木) 13:46 発言
【20874】Re:ぜひ御教授下さい。 ずいき 04/12/23(木) 14:00 質問
【20878】Re:宅ふぁいる便 かみちゃん 04/12/23(木) 14:19 発言
【20880】Re:宅ふぁいる便 ずいき 04/12/23(木) 14:25 質問
【20898】Re:宅ふぁいる便 YN61 04/12/23(木) 20:28 発言

60481 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free