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

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

[[20181021113508]]: #score: 6703; @digest: 34bb80e4cb84afa7f13f310a62833eb4; @id: 77576; @mdate: 2018-10-21T10:22:25Z; @size: 2785; @type: text/plain; #keywords: autoshapetype (19701), obuject (14647), msoshaperoundedrectangle (8898), enumeration (6506), 形オ (6375), autoshape (6291), msoautoshapetype (5802), 丸四 (4320), 角丸 (3837), msoautoshape (3632), shapes (3521), yuri (2390), シェ (2258), トシ (2179), 元コ (2179), ェイ (2126), のau (1875), 此処 (1820), articles (1737), 授有 (1727), ロパ (1578), イプ (1575), パテ (1408), 判定 (1118), 丸投 (1053), 多数 (1030), office (999), 図形 (988), type (957), 角形 (931), 形の (911), ティ (858); 『指定する形のAutoShapeのみ削除する』（yuri）
sheetの表には多数のAutoShapeが貼ってあって、その形も様々です。そこで多数の形のshapeの中からしてするshapeのみを一括で削除したいのですがVBAには詳しくなく、検索して見つけたコードを応用して試しましたが上手く行きませんでした。これが見つけたコードです。 Sub obuject_delete() Dim i As Long With Worksheets("Sheet1") For i = .Shapes.Count To 1 Step -1 If .Shapes(i).Type = msoAutoshape Then .Shapes(i).Delete Next i End With End Sub これだと、全部消えるので、例えばmsoShapeRoundedRectangleの形のみ削除されるようにしたいのです。どうか、ご教授ください。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- ＞例えばmsoShapeRoundedRectangleの形のみ削除されるようにしたい AutoShapeTypeで判定してはどうでしょうか（マナ） 2018/10/21(日) 12:07 ---- ---- マナさまご教授有難うございます。 >AutoShapeTypeで判定してはどうでしょうかですが、判定のコードの組方がよくわかりません。 Sub obuject_delete() Dim i As Long With Worksheets("Sheet 1") For i = .Shapes.Count To 1 Step -1 If .Shapes(i).Type = AutoShapeType = msoShapeRoundedRectangles Then .Shapes(i).Delete Next i End With End Sub 上記のようにしたら、全部削除になります。すみません、もう少し詳しくお願いします。（yuri） 2018/10/21(日) 15:49 ---- If .Shapes(i).AutoShapeType = 5 Then MsgBox .Shapes(i).Name End If とかでご確認を（隠居じーさん） 2018/10/21(日) 16:22 ---- マナさんは、ご提示のコードはTypeプロパティでShapesかどうかを判定しているので、 AutoShapeTypeプロパティで角丸四角形かどうかを判定した方が良いですよと言ってます。 Typeプロパティが何を意味するのか、回答者に元コードの改造を丸投げするだけで無く、まずはコードの意味を理解する努力もして下さい。（sy） 2018/10/21(日) 19:03 ---- ShapesのTypeプロパティは、オートシェイプを含む様々な図形オブジェクトの種類を返します。なのでTypeプロパティでは、対象の図形オブジェクトがオートシェイプか違うかしか分かりません。以下を参考にして下さい。 https://docs.microsoft.com/ja-jp/dotnet/api/microsoft.office.core.msoshapetype?redirectedfrom=MSDN&view=office-pia 対してAutoShapeTypeプロパティはオートシェイプの種類を返します。対象の図形がオートシェイプだった場合に、そのオートシェイプの種類を返します。 https://msdn.microsoft.com/ja-jp/VBA/Office-Shared-VBA/articles/msoautoshapetype-enumeration-office 此処とか分かりやすいリストにしてくれてます。 https://www.relief.jp/docs/018476.html ヒントを元にもう一度ご自身で頑張ってみて下さい。まぁそれでも分からなければ仕方ないので、分からないと言えば回答を出します。日中は仕事なので回答できませんが、その時は誰かが回答してくれるでしょう。（sy） 2018/10/21(日) 19:22 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201810/20181021113508.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ