
No.1ベストアンサー
- 回答日時:
こんにちは
図形をいじったことが無いので、簡単に調べてみただけの情報です。
(…ですので、もう少し適切な方法があるかも知れません)
①線分は始点と終点で管理されていますので、「一部を消す」という考え方ではなく「どちらかの点を移動する」と考えるのが妥当でしょう。
でも、エクセルの場合は(一般の図形を扱うソフトと違って)どうやら直接これらの点を操作するメソッドが見当たりません。
直線の場合は、矩形で管理していて、その位置と幅、高さに換算して指定する必要があるようです。
>任意の長さ分だけ消す方法
任意の長さが線分に沿った長さ(実長)かX軸あるいはY軸上での長さかにもよりますが、それは換算できるでしょうから、ご提示の例で100の長さ(実長は141.4)を50にする例を以下に。
②idを利用しても良いですが、シート等と同様で、shapeオブジェクトを作成した際にエクセル側で自動的に一意の名称を付けますのでそれを利用するか、あるいは、オブジェクトそのものを変数(配列などでも可)に記憶しておくほうが簡単ではないかと思います。
(名前を用いてオブジェクトを指定することもも、ちろん可能です)
以下の例は、
1)線分を引く
2)作成されたオブジェクト名を表示
3)始点を線分の長さが1/2になるように移動
4)メッセージ表示
5)線分を削除
の順で処理する例です。(オブジェクトを変数L1に代入しています)
(処理中のApplication.ScreenUpdating~は、描画が画面に反映されるためのおまじないですので、実質的には必要ありません。)
Set L1 = ActiveSheet.Shapes.AddLine(200, 200, 300, 300)
Application.ScreenUpdating = True
MsgBox "オブジェクト名:" & L1.Name & vbLf & "始点を移動します"
L1.ScaleHeight 0.5, 0, 2
L1.ScaleWidth 0.5, 0, 2
Application.ScreenUpdating = True
MsgBox "削除します"
L1.Delete
※ Shapeオブジェクト他のメソッド等の小異才情報に関しては、MSDNをご参照ください。
https://msdn.microsoft.com/ja-jp/vba/excel-vba/a …
この回答へのお礼
お礼日時:2018/07/20 13:27
早速有り難うございました。
また、何時も有り難うございます。
全て了解です。
少しばかりやろうとしたいこととは違いますが、
無い袖は振れずで、教えていただいた方法を使わせていただきます。
また、描画の削除についても良く分かりました。
お世話になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
曲線に対しての垂線の引き方に...
-
オートシェイプ曲線図形を部分...
-
ワード2010 頂点の編集時 線分...
-
JW-CADで図形を揃える方法
-
AutoCADで矢印
-
AutoCAD2007LTでESCキー操作(...
-
AutoCADで日本語入力をOFFにせ...
-
Solidworksで面の集合をソリッ...
-
AutoCAD ツールバーを消してし...
-
autocad のマルチテキストです...
-
auto cadの長方形が描けません
-
AUTOCADでサインカーブの書き方...
-
マイクロキャダムの質問掲示板
-
google earthの使い方
-
Word 2010 -- 自分の好きな文字...
-
3DCADでのネジ作図
-
マウスホイールの遊びが設定で...
-
六角ボルトの図面の書き方
-
Catia オフセット トリム 分割
-
JWCADの図形の移動方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JW-CADで図形を揃える方法
-
曲線に対しての垂線の引き方に...
-
Autocadで3D面から線分へ変換
-
ワード2010 頂点の編集時 線分...
-
オートシェイプ曲線図形を部分...
-
AutoCADで矢印
-
【エクセル】原点を通るグラフ...
-
autoCADで決まった長さの三本の...
-
斜めになった線分を水平又は垂直
-
CADで横線を3等分した縦線を書...
-
ほぼ正確な四角形の出し方
-
エクセルで線分図を描けますで...
-
Auto CADについて
-
折れ線グラフの中の折れ線の名...
-
AutoCAD 2006LT にて斜線の平行...
-
AutoCADの垂線の描き方
-
jwの包絡処理のような
-
autocadの分解コマンドで図形が...
-
AutoCAD2000で線分に直交する線...
-
JW-CADの用紙サイズを合わせた...
おすすめ情報