Excel VBA質問箱 IV

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

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


5265 / 13646 ツリー ←次へ | 前へ→

【51861】別のBOOKを作成してその中のコマンドボタンを消す TOM 07/10/8(月) 15:40 質問[未読]
【51882】Re:別のBOOKを作成してその中のコマンドボ... ちん 07/10/9(火) 13:24 回答[未読]
【51883】Re:別のBOOKを作成してその中のコマンドボ... マクロマン 07/10/9(火) 14:00 発言[未読]
【51884】Re:別のBOOKを作成してその中のコマンドボ... マクロマン 07/10/9(火) 14:19 発言[未読]

【51861】別のBOOKを作成してその中のコマンドボタ...
質問  TOM  - 07/10/8(月) 15:40 -

引用なし
パスワード
   既存のBOOKをデータベースとして、新規BOOKを作りそこに必要なシートをコピーします。
そのこぴーするシートの中に、vbaのコマンドボタンもデータと同じ様にコピーされて
しまいます。
シート名(**ライン)とついた物を新規BOOKにコピーしてます。

書式・印刷設定を維持したいためにシートごとコピーとしているのですが、
コマンドボタンの消し方が解かりません。

ちなみに、このvbaはsheet1に記述していますが、
これが正しい場所かどうかも解かりません。
どうか教えてください。
(新規BOOKは名前を付けてませんが、「今日日付+”ライン”」という名前
  で保存したいと考えています。)

以上
本人が作ったプログラムを下に記述します。

Sub シートのコピー()

Dim WS As Worksheet
Dim WB1 As Workbook
Dim WB2 As Workbook

Application.ScreenUpdating = False '画面の更新を停止
  
'Workbooks.Open Filename:="C:\売上\18期売上.xls" 'コピー先のブックを開く
'Set WB1 = Workbooks("18期売上.xls") 'コピー先のブックを変数に代入
 
Set WB2 = ThisWorkbook
LastRow1 = Range("O65536").End(xlUp).Row
Set WB1 = Workbooks.Add

  Range("A3:CG" & LastRow1).Copy WB1.Sheets(1).Range("A3")
 
  
For Each WS In ThisWorkbook.Worksheets 'コピー元のすべてのワークシートに対して処理を繰り返す
 If WS.Name Like "*ライン*" Then 'シート名に「ライン」の文字列が含まれる場合
WS.Copy AFTER:=WB1.Sheets(WB1.Sheets.Count) 'ワークシートをコピー先ブックにコピー
  End If
Next WS

Application.ScreenUpdating = True '画面の更新を有効

END SUB

【51882】Re:別のBOOKを作成してその中のコマンド...
回答  ちん  - 07/10/9(火) 13:24 -

引用なし
パスワード
   こんにちは、ちんといいます。
ボタンを削除するには・・・ ですが。
Sheetの全図形の削除コマンドを記述しますね。(図形・ボタン・・・)
Drawingのもの全て削除できます。

ActiveSheet.DrawingObjects.Delete


勘違いしてたらごめんなさい。
以上、参考までに・・・

【51883】Re:別のBOOKを作成してその中のコマンド...
発言  マクロマン  - 07/10/9(火) 14:00 -

引用なし
パスワード
   横から失礼します。
コマンドボタンとのことですので、シートモジュールに
コマンドボタンのコードがあると思います。
このコードはどうしますか?

【51884】Re:別のBOOKを作成してその中のコマンド...
発言  マクロマン  - 07/10/9(火) 14:19 -

引用なし
パスワード
   シートのコントロールツールボックスの
コントロールを削除するサンプルです。

  WS.OLEObjects.Delete

セルの書式をコピーする方法はあります。
同じブックでしか試してませんが、
「形式を選択して貼付け」で「すべて」
を選択して貼付けしたら、シェイプや
コントロール類は貼付けされませんでした。

また、少し時間が掛かるかもしれませんが、
印刷設定をコピーすることも可能です。

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