ベストアンサー エクセルで図形をセレクト 2006/07/21 00:41 アクティブシート内の全てのオブジェクト(線や図形)をセレクト状態にするマクロを教えて頂けますでしょうか。 みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー papayuka ベストアンサー率45% (1388/3066) 2006/07/21 00:48 回答No.1 ActiveSheet.Shapes.SelectAll とか？ 質問者 お礼 2006/07/21 00:56 有難うございました。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A エクセルで線をセレクト アクティブシート内の全ての線（オブジェクト)をセレクト状態にするマクロを教えて頂けますでしょうか。 ちなみに、 ActiveSheet.Shapes.Line.SelectAll ではダメでした。 エクセルの図形移動で困っています。 エクセルの図形移動で困っています。 シート２にある図形をシート１にマクロを使って移動（コピー＆貼り付け）をしようとしています。 マクロの記録でやった所、以下のような感じになりました。 Sub Macro4() ' ' Macro4 Macro ' ' Sheets("sheet2").Select Selection.Copy Sheets("sheet1").Select Range("N16").Select ActiveSheet.Paste End Sub しかし、なぜか３回程つかうとシート１に貼り付けされなくなります。 原因はシート２の図形をコピーする時に選択されるところがないからではないか？と思い 色々ネットで調べてみたのですが、まだまだ結論が出ていない状態です。 皆様のお力を貸して頂ければと思います。 Sub Macro4() ' ' Macro4 Macro ' ' Sheets("sheet2").Select (たぶんここに"図形1）とか入るのでは？？と思っています Selection.Copy Sheets("sheet1").Select Range("N16").Select ActiveSheet.Paste End Sub エクセルの図形描画のこと エクセルのあるシートに、オートシェイプの図形とテキストボックスの文字が無数に描画してあります。これらを全てまとめて、"セルに合わせて移動やサイズ変更をしない"に一括変更するにはどうすればいいでしょうか？ 対象オブジェクトを全てセレクト状態にしてから、マウス右クリックで"オブジェクトの書式設定"を選択してみると、対象が多すぎるようで書式設定ウインドウが出てきませんでした。 エクセル図形間のテキストのコピー方法は？ エクセル９７のマクロの記述の質問です。 Sheet1とSeet2にそれぞれ図形があり、Sheet1の図形上のテキストをSheet2の図形にコピーしたいのですが、どう記述すればよいでしょうか？ 図形をオブジェクトとして指定するのかと漠然と思うのですが、特定の図形のオブジェクトの名前をどうやって知（取得す）ればいいのかも、判りません。 よろしくご指導願います。 Excelでの図形の描画 Visual Basicでフォームに図形を直接描画できる様に、Excelでオートシェイプなどのオブジェクトを使用しないでシートに対して直接、図形（線や円など）を描画する事は可能でしょうか？ エクセル２０１０の図形の表示について エクセル（９７－２００３ブック：互換モードで使用中）で図形（例えば：四角□）を表示しようとして「□」をクリックして、シートに表示させるのですが、必ず「線は青」で「青く塗りつぶされた」状態で表示されます。そのたびに「線を黒にし塗りつぶしなし」に変更しています。とても面倒です。図形を表示すると「線は黒で塗りつぶしない」に表示されるように設定できないのでしょうか？教えてください。 Ｅｘｃｅｌで特定の図形だけ透明化したい ＥｘｃｅｌでSheet上に図形を表示し、下記マクロを実行すると徐々に透明化しますが、 複数の図形を表示し実行するとすべてが透明化されます。特定の図形だけを透明化する方法ありますか For N = 1 To 200 Dim sh As Shape Dim tr As Double For Each sh In ActiveSheet.Shapes tr = sh.Fill.Transparency tr = tr + 0.0061 If 1 <= tr Then tr = 1 sh.Fill.Transparency = tr Next Range("a1").Select Next End Sub エクセルでセレクトの解除 Cells.Select で全てのセルをセレクトした後に、 W20 だけセレクトを解除するマクロ文を教えて頂けますか。 エクセルマクロでシート内にある画像のみを選択する エクセルマクロでシート内にある画像のみを選択する ActiveSheet.DrawingObjects.Select これだとエクセルのシート内にあるすべてのオブジェクトを選択してしまいます。 テキストボックスなどのオブジェクトは選択せずに、写真などの画像のみを 選択したいのですがどのようにしたらよいのでしょうか。 どうかよろしくお願いいたします。 エクセルの図形描画で？ Excel2003を使用しています。 セルに文字や数字を入力し、「図形描画」で○や□の線で囲むと文字や数字が隠れてしまいます。 図形描画で書いたオブジェクト（○や□）を背面へ移動するという操作をしても文字や数字が現れて来ません、操作方法を教えて下さい。 エクセルで図形を一気に消す方法 エクセルで図形をいっぱい貼り付けたページがあるのですが、 その貼り付けた図形を一気に消す方法ってあるんでしょうか？ 普通の文字だったら、範囲指定をして、ＤＥＬＥＴＥキーを押すと、その範囲が全部消えますよね？ でも、図形機能で貼り付けたオブジェクトって、行削除してもセルの隙間（？）に線になって残ってたりしますよね。 範囲指定をして、その範囲にある図形をいっぺんに消す機能って無いもんでしょうか？ ちなみに今はシフトキー押しながら、いっこずつ全ての図形をマウスでクリックし指定して、最後に切り取りしてます。 でも、この方法だと、いっぱい図形ある場合かなり面倒だし、よく失敗するんです。（図形以外の場所をクリックしちゃって、指定が全てパァに・・・） エクセル97もしくはエクセル２０００の環境でアドバイスをよろしくお願い致します。 エクセル2007の図形描写 エクセル2007に図形やオブジェクト テキストを挿入して 印刷設定をすると 画面から挿入したオブジェクト等が消えてしまいます <オブジェクトの検索>で確認するとすべて表示になっているし 印刷すると 画面では見えなくなっているオブジェクトはちゃんと印刷されています 印刷プレビューでも見えません 大変困ります マクロで選択した図形の選択状態を解除するには Excel97,Windows98SEを使用しています。 シート上に作成したコントロールツールのコマンドボタンをクリックすると、 シート上の全ての図形を選択して、順序を最背面にするというマクロを作成したのですが、 選択した図形のハンドルが消えません。 図形選択を解除して、B26セルを選択したいのですが、どうしたらよいでしょうか？ Private Sub CButton_gyou_Click() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.ZOrder msoSendToBack Range("B26").Select End Sub ご存知の方、どうぞよろしくお願いいたします。 全てのテキストボックスを選択するには エクセルのあるシートに、オートシェイプの図形とテキストボックスの文字が無数に描画してあります。このような状態で、テキストボックスのみを全てセレクト状態にするマクロが知りたいのですが。 エクセルで図形の削除 シート内に作図されている線で、 100 < .Height < 200 And 100 < .Width < 200 上記の条件を満たすものを削除したいのですが、以下のマクロですと、全ての線が削除されてしまいます。 シート内に様々な長さ・向きの線を作図して試したのですが。 For Each x In ActiveSheet.DrawingObjects With x If 100 < .Height < 200 And 100 < .Width < 200 Then .Delete End If End With Next どこがおかしいでしょうか？ ご指摘お願いします。 図形をコピーするマクロ(エクセル) 以下のマクロで、シート上にある図形(四角形 1)を、選択状態にあるセルの上に移動させることができます。 Sub test() Dim seru As Range On Error GoTo Errorline Set seru = Range(ActiveCell.Address) ActiveSheet.Shapes("四角形 1").Select With Selection.ShapeRange .Left = seru.Left .Top = seru.Top End With Errorline: End Sub 移動ではなくコピーにするには、どう変えればいいでしょうか？ EXCELでマクロを使わずに図形の自動入力 シート1に定型表を作成しシート2に各データー、シート3に図形データをいれ シート1で入力規則で作成した品種を選択するとデータが変更する所までは できたのですが、図形の自動入力方法がわかりません。できればマクロを 使用せずにと思っています。どなたかご指導お願いします。 Excelの図形について教えてください Excel2007を使っていますが、図形の線の幅（太さ）を０（ゼロ）にしても印刷すると線が太いのですが、もっと線を細くすることは可能でしょうか？ エクセル２００７で、図形を張り付けるとずれます。 エクセル２００７のシート上で図形で、楕円や矢印を貼り付け、 その後、何度か閉じたり開いたりすると、特定のシートの図形が ずれています。 ずれ方は、右斜め下へ全部の図形がずれています。 均一にずれているわけでは、ないので、都度修正が大変です。 何か原因があるのでしょうか？ 教えてください。 EXCELで図形の縁どりがしたいのですが？ EXCELで図形の縁どりがしたいのですが？ 例えば矢印を書き、図形の書式設定にて、線の色を白に設定、線のスタイルを３．５ｐｔにしました。で、この矢印に(黒などで)縁どりをしたいのですが、やりかたがわかりません。 どのようにしたらいいのですか？
お礼
有難うございました。