[[20021023160135]] 『マクロ:グラフ上にデータを貼り付ける』(不安多爺) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロ:グラフ上にデータを貼り付ける』(不安多爺)

マクロ:グラフ上に別シートのデータを貼り付ける。

グラフ上に別シートからのデータを貼り付ける作業をマクロ記録しましたが、一度は動作する

のですが、2度目はエラーとなります。貼り付け位置が絶対位置でないからなのでしょうか?

下記の説明では分かりにくいと思いますが、どなたかご教授お願い致します。

    ActiveSheet.Shapes("Picture 964").Select ← エラー表示(指定したアイテムが

                                 見つからない)

    Selection.ShapeRange.IncrementLeft 85.5

    Selection.ShapeRange.IncrementTop 135.75

    ActiveSheet.Shapes("Picture 985").Select

    Selection.ShapeRange.IncrementLeft 92.25

    Selection.ShapeRange.IncrementTop 102#

    ActiveWindow.SmallScroll Down:=18

    ActiveSheet.Shapes("Picture 972").Select

    Selection.ShapeRange.IncrementLeft 75.7  ....

   

 工程

   @グラフ上に貼り付けられたデータを適当な位置に移動(新しく貼り付けるデータが

    重なるのを防ぐため)

   A別シートのデータをコピーし、グラフ上に貼り付け

   B貼り付けられたデータをグラフ上の任意の位置に移動(貼り付けられた

    データが全てセルA1に貼り付いてしまうため)


 みやほりんが 未解決ログ解消を目的に 2010/08/24 17:30 ごろ、投稿しました。
 トピ主の[不安多爺]さんの投稿は2002/10/23 16:01:35でした
 
 ActiveSheet.Shapes("Picture 964").Select 
でエラーになるのは「Picture 964」という名前のShapeオブジェクトがアクティブシートに
存在しないからです。
つまり、新しく作成するたびに名前が増えていってしまうので、
「Picture 964」という具体的な名前を指定してしまうと「Picture 964」という
名前のオブジェクトしか操作できません。
 
オブジェクトの種類が不明確ですが、グラフに重ねられているオブジェクトが
常に同じ部分を参照して画像なり、セルデータなりを表示する仕組みが考えられます。
 
:オブジェクトにセルデータを参照させる方法
[[20070509005226]] 『組織図の作成について』(キョン)
:オブジェクトに画像を参照させる方法
[[20050331113740]] 『社員証』(NOB)
 
『社員証』では画像が配置されたセルに全部名前定義していく方法を紹介していますが、
特定のセル範囲に名前定義しておいて、そこへ適当な画像オブジェクトを配置することで
表示の切り替えを行うことも出来ます。
みやほりん

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.