Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20070127110311]]
- #score: 6703
- @digest: ac133ca4fe3c22d0cc4a2d7388008f89
- @id: 28238
- @mdate: 2007-01-27T13:31:06Z
- @size: 945
- @type: text/plain
- #keywords: myshapetype (22494), jobexit (15241), myshape (9597), allshapesdelete (7748), allshapesdelete1 (7748), フ以 (4449), x11euser (3372), シェ (2258), drawingobject (2234), ェイ (2126), charttype (1752), トシ (1743), イプ (1575), ラフ (770), てオ (741), に消 (720), グラ (691), 。グ (683), オー (659), 混在 (580), isempty (572), プが (560), shapes (440), 残し (408), 一緒 (354), activesheet (344), プを (308), excel2000 (276), 野鮎 (261), 川野 (249), 鮎太 (246), 消え (246)
- 『グラフは残してオートシェイプを消したい』（x11euser）
1つのワークシートにグラフとオートシェイプが混在しています。 オートシェイプだけ全て消そうとして、以下のマクロを実行したところ グラフも一緒に消えてしまいました。 グラフだけ残してオートシェイプをきれいに消すにはどうすれば 良いのでしょうか。よろしくお願いします。 OSはWindowsXP、エクセルはExcel2000、です。 Sub ALLShapesDelete() On Error GoTo JOBEXIT Do While 1 = 1 ActiveSheet.Shapes(1).Select Selection.Delete Loop JOBEXIT: End Sub ---- これでいけますか。 Sub ALLShapesDelete1() On Error Resume Next For Each myShape In ActiveSheet.Shapes myShapeType = myShape.DrawingObject.Chart.ChartType If IsEmpty(myShapeType) Then myShape.Delete End If myShapeType = Noting Next myShape End Sub （川野鮎太郎） ---- 早速やってみました。 グラフ以外のシェイプがきれいに消えました。 本当にありがとうございました。... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070127110311.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97013 documents and 608132 words.
訪問者：