表を図として貼り付ける

以前にカメラ機能でも紹介したが、今回はそれをマクロでやってみた。
元データにリンクはしていないし、ただ単に図として貼り付けているだけの単純なもの。
Shiftキーを押しながら『編集』をクリックすると現れる隠れコマンドのような感じだろうか・・・

Sub 図として貼り付ける()
  ’コピーしたい表の一部をアクティブにしてから実行
  ActiveCell.CurrentRegion.CopyPicture
  ActiveSheet.Pictures.Paste
End Sub

実に簡単だ。こんなことやらなくても素直にカメラ機能や一般機能でやったほうが良かったかも。
e0080122_23551272.gif

[PR]
by slayer0210 | 2005-12-20 23:56 | マクロ


<< 表を図として貼り付ける(リンクする) 上と同じ値を入力 >>