Excel VBA質問箱 IV

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

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


4956 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   シートにはオートシェイプとラベルが複数貼り付けてあります。
このシート全体を選択しコピー、その後別シートへペースト。
この作業を手動では出来るのですが、VBAで行なうとラベル
がペーストされません。いろいろ調べて観ましたが原因がわかりません。
ご教授願います。

【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ではできなかった。


手動でコピー&ペーストした場合も、デザインモードの場合はラベルもコピー&ペーストされますが、デザインモードを終了した状態だと、ラベルはペーストされない様です。てっことは、デザインモード状態でVBAよりコピーすれば出来そうですが、VBAでデザインモードの切り替えは出来るのでしょうか?

【53393】Re:VBA でシートコピーしたとき
発言  Jaka  - 08/1/8(火) 15:35 -

引用なし
パスワード
   デザインモード...。
アクティブXコントロールの方でしたか。
オブジェクトとしてコピペするとかしないと....。
場合によってはシートを複製して、入らないところを削除とか....

>VBAでデザインモードの切り替えは出来るのでしょうか
できるけど、オンにしたとたんにリセット信号が入るから、それ以上マクロは実行されないですよ。
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さん ありがとうございます。

オブジェクトの一括コピーはできましたので、ここから不要な(処理起動ボタン等)を削除するようにしてみます。

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