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

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

[[20110404104252]]: #score: 6703; @digest: 919ec2fc66abffde826d801ca9f5a844; @id: 54014; @mdate: 2011-04-04T02:47:25Z; @size: 1581; @type: text/plain; #keywords: msoautoshape (7264), msotextbox (4741), rectangle (4354), 大部 (2690), executeexcel4macro (2389), drawingobject (2234), キレ (1959), シェ (1806), トシ (1743), ェイ (1700), ル参 (1680), shp (1619), 投入 (1608), 括削 (1465), shape (1392), イプ (1260), formula (1069), 角形 (931), トボ (903), shapes (880), ・日 (749), テキ (710), 四角 (698), チリ (673), オー (659), キス (656), 一括 (619), 動記 (531), 写真 (521), activesheet (516), ボッ (446), ピン (417); 『オートシェイプのセル参照をマクロで一括削除するには』（エクする?）
シート上に多くのオートシェイプ、テキストボックス、四角形（Rectangle）を置いてあり、そのうち大部分には「=$D$9」のようにセル参照の関数を入れていますが、この関数をマクロによって一括にすべて削除したいです。自動記録では、 ActiveSheet.Shapes("Rectangle 35").Select ExecuteExcel4Macro "FORMULA("""")" のようになりましたが、シートによってオートシェイプの数も名前も異なりますので、応用できません。繰り返し処理で対応するのかとは思うのですが・・・アドバイスいただけるでしょうか? Excel2003 Windows 2000 ---- こんなこと? Sub Sample() Dim sp As Shape For Each sp In ActiveSheet.Shapes sp.Select ExecuteExcel4Macro "FORMULA("""")" Next End Sub ぶらっと立ち寄り ---- バッチリできました。ありがとうございます。 Dim As まだピンと来ない・・・日々勉強です。（エクする?） ---- 被りましたが・・・ Shapeをループさせますが、Shapeには写真やコメントも含まれるので msoAutoShapeだけに対して処理します。 Sub test() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Then With shp.DrawingObject .Text = "" .Formula = "" End With End If Next shp End Sub （momo） ---- momoさんありがとうございます。これだとテキストボックスに投入されたセル参照が残りますね。 オートシェイプのほうはキレイに削除されました。あと処理はほんの少し重いかも・・・。 ---- エクする?です。 If shp.Type = msoTextBox でテキストボックスもできました。勉強になりました。 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201104/20110404104252.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ