エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20100601103610]]: #score: 6703; @digest: 98ce8a27a878c2638e37d8540e6d928c; @id: 49766; @mdate: 2010-06-02T08:55:05Z; @size: 3855; @type: text/plain; #keywords: rectangle (45724), drawingobjects (11457), xlfreefloating (10014), printobject (7577), placement (6832), 339 (5831), shapes (4846), 334 (4431), シェ (4064), 図形 (3952), トシ (3923), ェイ (3827), す単 (3423), イプ (2836), ェー (2650), フェ (2457), 語な (1933), 角形 (1862), excel97 (1728), commandbutton2 (1619), オー (1484), り= (1474), 集ま (1454), 形を (1404), 四角 (1397), ブジ (1373), オブ (1368), ジェ (1278), 指す (1212), activesheet (1206), 、図 (1202), ェク (1111); 『オートシェイプの設定』（しまぶ〜）
今、自分の所にあるパソコンで、Excel2007とExcel2003 があります。Excel2003で作ったものをExcel2007で開いて印刷をするとオートシェイプで作った四角形などは、印刷位置が必ずずれてしまいます。今、2007でずれないようにするため、オートシェイプの書式設定内にあるプロパティのセルに合わせて移動やサイズの変更をしないにチェックをいれると何とか問題は改善されるのですが、それをマクロで一発で解決したくマクロの記録で記録してみたのですが、これをまだオートシェイプを増やしてもボタン一つで解決できるようにしたいのです。下記の数字だけを変更すればなんとかなるのでしょうか?また、変更するにしても途中の番号も入っていて下手にいじることが出来ません。どうすればいいのかどなたか教えてもらえませんか? Private Sub CommandButton2_Click() ActiveSheet.Shapes("Rectangle 334").Select ActiveSheet.Shapes.Range(Array("Rectangle 334", "Rectangle 339")).Select ActiveSheet.Shapes.Range(Array("Rectangle 334", "Rectangle 339", _ "Rectangle 348")).Select ActiveSheet.Shapes.Range(Array("Rectangle 334", "Rectangle 339", _ "Rectangle 348", "Rectangle 337")).Select ActiveWindow.SmallScroll Down:=6 ActiveSheet.Shapes.Range(Array("Rectangle 334", "Rectangle 339", _ "Rectangle 348", "Rectangle 337" _ , "Rectangle 338")).Select ActiveSheet.Shapes.Range(Array("Rectangle 334", "Rectangle 339", _ "Rectangle 348", "Rectangle 337" _ , "Rectangle 338", "Rectangle 349")).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With End Sub ちなみに、今あるオートシェイプの四角形の番号は6つあり、334、337、338 339、348、349です。 ---- Private Sub CommandButton2_Click() With ActiveSheet.DrawingObjects .Placement = xlFreeFloating .PrintObject = True End With End Sub こういうことですか? ichinose ---- ありがとうございます。そういうことです。イメージ通りでした。すみません。自分なりに勉強したいのですが、 DrawingObjectsとは、すべてのオートシェイプ のことを指す単語なのですか?それともまだ他にも意味があるのですか? よろしくお願いします。（しまぶ〜） ---- >DrawingObjectsとは、すべてのオートシェイプのことを指す単語なのですか? DrawingObjectsとオートシェイプは、次元が異なる名称です。もっとも私もExcelを使い始めたのがExcel2000からなので古いことはあまり知らないのですが・・・。 DrawingObjectsというのは、Excel95以前には、シート上のすべての図形を扱えるオブジェクトでした。 Excel97から、図形を扱うオブジェクトとして、Shape （コレクションをShapes、DrawingObjectsに匹敵するコレクション）というクラスが登場します。 DrawingObjectsとshapes、同じように図形を扱うオブジェクトですが、別のオブジェクトです。このShapeというオブジェクトの種類の一つにオートシェイプ （アプリケーションにあらかじめ用意されている図形のこと。長方形や円などの基本図形、さまざまな線種、コネクタ、ブロック矢印、フローチャート、星とリボン、吹き出しなどがある) というものがあるのです。typeというプロパティで識別できます。どこかでも書きましたが、シート上に見えている図形の集まり=DrawingObjects シート上に見えている図形の集まり=Shapes ではありません、ここを理解してください。オブジェクトは、図形そのものではありません。 DrawingObjectsもShapesも図形を操作するインターフェースにすぎません。 Excel97からは、図形を操作する新しいインターフェース（Shapes）が出来たのですから、これを使えばよいのです。が、新しい機能も追加されているのですが、バグもあって、図形を操作するのに中々Shapes単独では、実現できないこともあるということが分かってきました。そこでShapesでは出きないことを古いインターフェースである DrawingObjectsを使って行うようにして、うまく使い分けているのが現状です。よって、DrawingObjectsもShapesもすべての図形を含んでいると言えると思います。 ichinose ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201006/20100601103610.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ