Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20080108110410]]
- #score: 6703
- @digest: e6a103a1f256c554075bdac86d3545fe
- @id: 35317
- @mdate: 2008-01-08T23:45:17Z
- @size: 1750
- @type: text/plain
- #keywords: 由直 (15497), 線() (9114), arrowheadstyle (7323), 所引 (7005), プ削 (5771), yamada (4567), 直線 (4529), beginarrowheadstyle (4042), endarrowheadstyle (2980), 数箇 (2311), bottomrightcell (2159), addline (1855), シェ (1806), トシ (1743), ェイ (1700), sp (1550), 決後 (1540), イプ (1260), 変遅 (1177), topleftcell (1139), 自由 (1137), （ya (1081), shaperange (883), width (851), オー (659), で直 (634), 御座 (621), activesheet (516), 引い (482), shapes (440), left (393), 十分 (379)
- 『オートシェイプ削除』（YAMADA）
オートシェイプで直線をH:J列に複数箇所引いていますが、 A、B列にもオートシェイプで直線を引いています。 H:J列のオートシェイプの直線だけを削除するにはどうすればいいですか? 教えてください。 下記は、過去ログから Sub 自由直線() With Range("H1:J2") x1 = .Left x2 = .Top x3 = .Width x4 = .Height End With ActiveSheet.Shapes.AddLine(x1, x2, x1 + x3, x2 + x4).Select End Sub ---- 十分な検証はしていませんが、こんな感じでどうでしょうか。(ROUGE) '---- Sub test() Dim sp As Shape For Each sp In ActiveSheet.Shapes If sp.Type = 9 Then sp.Select With Selection.ShapeRange.Line If (.BeginArrowheadStyle = 1) * (.EndArrowheadStyle = 1) Then If Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), _ Range("A:G,K:IV")) Is Nothing Then sp.Delete End If End With End If Next End Sub ---- 大変遅くなりました。 『自由直線()』を実行して『test()』実行しても消えなかったので 範囲を広げたら消えました。 Range("A:G,K:IV") → Range("A:F,L:IV")) 有難う御座いました。 （YAMADA） ---- 解決後ですが、こんな方法も Sub test() Dim rng As Range Set rng = Range("h:j") Dim sp As Object For Each sp In ActiveSheet.Lines With sp If .ArrowHeadStyle = -4142 Then If .Left >= rng.Left And _ .Left + .Width <= rng.Left + rng.Width Then sp.Delete End If End If End With Next End Sub ---- どなたかわかりませんが、有難う御座いました。 上記でokになりました。 （YAMADA）... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200801/20080108110410.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97048 documents and 608239 words.
訪問者：