Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4958 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53387】VBA でシートコピーしたとき のん 08/1/8(火) 13:55 質問[未読]
【53388】Re:VBA でシートコピーしたとき Sasurai 08/1/8(火) 14:05 回答[未読]
【53390】Re:VBA でシートコピーしたとき のん 08/1/8(火) 14:43 質問[未読]
【53391】Re:VBA でシートコピーしたとき Sasurai 08/1/8(火) 14:59 回答[未読]
【53395】Re:VBA でシートコピーしたとき のん 08/1/8(火) 15:49 お礼[未読]
【53389】Re:VBA でシートコピーしたとき Jaka 08/1/8(火) 14:28 発言[未読]
【53392】Re:VBA でシートコピーしたとき のん 08/1/8(火) 15:00 質問[未読]
【53393】Re:VBA でシートコピーしたとき Jaka 08/1/8(火) 15:35 発言[未読]
【53394】Re:VBA でシートコピーしたとき のん 08/1/8(火) 15:47 お礼[未読]
【53387】VBA でシートコピーしたとき
質問  のん  - 08/1/8(火) 13:55 -
引用なし
パスワード
   シートにはオートシェイプとラベルが複数貼り付けてあります。
このシート全体を選択しコピー、その後別シートへペースト。
この作業を手動では出来るのですが、ＶＢＡで行なうとラベル
がペーストされません。いろいろ調べて観ましたが原因がわかりません。
ご教授願います。
【53388】Re:VBA でシートコピーしたとき
回答  Sasurai  - 08/1/8(火) 14:05 -
引用なし
パスワード
   どんなコードを書いているのですか？
普通にシートごとコピーした方がいいかもしれませんが。
【53389】Re:VBA でシートコピーしたとき
発言  Jaka  - 08/1/8(火) 14:28 -
引用なし
パスワード
   ツール→オプション→編集にて
オブジェクトをセルとともに切り取り、コピーや・・・・。
にチェックがはいっているか確認。

追加
Range("A1:G19").Copy Sheets("Sheet2").Range("B10")

因みにPasteSpecialではできなかった。
【53390】Re:VBA でシートコピーしたとき
質問  のん  - 08/1/8(火) 14:43 -
引用なし
パスワード
   ▼Sasurai さん：
>どんなコードを書いているのですか？
>普通にシートごとコピーした方がいいかもしれませんが。

ある定型書式の用紙をシートに作成してあり、入力の手間を省く為にラベルを貼り付けその上にオートシェイプで楕円を重ねてあります。ラベルクリックイベントでオートシェイプの楕円の表示／非表示を切り替えて、入力の軽減しています。このシートで作成した用紙を、シートの値（観たまま）を別ブックで保存（マクロ等は保存したくない為）する為に、別シートに予め書式が定義されたコピー先のシートを作成してあり、入力されたシートからセルの値、オートシェイプ、ラベルをコピーし、コピー先へペーストした後に別ブックへ保存をしています。ラベルがない場合は上手く行っていましたが、ラベルがあると、ラベルのみコピーされません。
【53391】Re:VBA でシートコピーしたとき
回答  Sasurai  - 08/1/8(火) 14:59 -
引用なし
パスワード
   ActiveSheet.DrawingObjects.Copy

これで一括コピーは可能だと思います。
【53392】Re:VBA でシートコピーしたとき
質問  のん  - 08/1/8(火) 15:00 -
引用なし
パスワード
   ▼Jaka さん：
>ツール→オプション→編集にて
>オブジェクトをセルとともに切り取り、コピーや・・・・。
>にチェックがはいっているか確認。
>
>追加
>Range("A1:G19").Copy Sheets("Sheet2").Range("B10")

やはりラベルはペーストされません。

>
>因みにPasteSpecialではできなかった。


手動でコピー＆ペーストした場合も、デザインモードの場合はラベルもコピー＆ペーストされますが、デザインモードを終了した状態だと、ラベルはペーストされない様です。てっことは、デザインモード状態でＶＢＡよりコピーすれば出来そうですが、ＶＢＡでデザインモードの切り替えは出来るのでしょうか？
【53393】Re:VBA でシートコピーしたとき
発言  Jaka  - 08/1/8(火) 15:35 -
引用なし
パスワード
   デザインモード...。
アクティブXコントロールの方でしたか。
オブジェクトとしてコピペするとかしないと....。
場合によってはシートを複製して、入らないところを削除とか....

>ＶＢＡでデザインモードの切り替えは出来るのでしょうか
できるけど、オンにしたとたんにリセット信号が入るから、それ以上マクロは実行されないですよ。
Application.CommandBars.FindControl(ID:=1605).Execute
Application.CommandBars.FindControl(ID:=1605).Reset
【53394】Re:VBA でシートコピーしたとき
お礼  のん  - 08/1/8(火) 15:47 -
引用なし
パスワード
   Jakaさん　ありがとうございます。

オブジェクトとして一括コピー後に、要らないオブジェクトを削除するようにしてやってみます。
【53395】Re:VBA でシートコピーしたとき
お礼  のん  - 08/1/8(火) 15:49 -
引用なし
パスワード
   Sasuraiさん　ありがとうございます。

オブジェクトの一括コピーはできましたので、ここから不要な（処理起動ボタン等）を削除するようにしてみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4958 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free