-PR-
解決済み

図形のコピーとコピー先のセル・行幅の設定について

  • 困ってます
  • 質問No.460803
  • 閲覧数158
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 66% (70/105)

ユーザーフォームで「シートの追加」ボタンを押と、新しいシートが挿入されるという設定です。
このとき、フォーマットとなる表や文字は
Range("A1", "CA56").Select
Selection.Copy
Sheets.Add.name = "二枚目のシート"
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll
を使い、貼り付けることが出来ました。てっきりxlPasteAllで、図もコピーできると思っていたら、
吹き出しや、楕円等のエクセルのオートシェイプ機能を使って作った図形が一緒にコピーできません。
図形は20個ほどあり、同じ位置にすべて貼り付けたいと思っています。そもそも無理なのでしょか?お力を貸してください。
またコピー先のシートのセルの幅と行の幅がコピー元と変わってしまいます。
細かい設定をすることは可能でしょうか?よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 45% (1388/3066)

こんにちは。

こんな感じでしょうか?

Private Sub CommandButton1_Click()
 On Error Resume Next
 Worksheets(1).Copy after:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = "二枚目のシート"
End Sub
お礼コメント
kohiro

お礼率 66% (70/105)

早速のお返事ありがとうございました!出来ました。こんなに短いコードで欲しい機能がすべて盛り込まれたので、驚いています。今日丸一日悩んでいたのが、嘘みたいに解消されて本当に嬉しいです。これからもよろしくお願いします。
投稿日時 - 2003-02-01 01:17:12
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


開業・独立という夢を持つ人へ向けた情報満載!

ピックアップ

ページ先頭へ