Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59235 / 76732 ←次へ | 前へ→

【22204】三角形の頂点の座標は?
質問  ponpon  - 05/2/11(金) 12:46 -

引用なし
パスワード
   ponponです。こんにちは。
 三角形の頂点を平行移動して等積変形をビジュアルに行おうと考えています。
 過去ログを調べたのですが、三角形の頂点の座標を取得する方法がわからなかったので、lineで作っていきました。
 しかし、変形最後のラインを取得して実線化、グループ化してforecolorで塗りつぶしを行おうとしましたができません。

 質問1 三角形の頂点の取得ができるのなら、教えてください。
 質問2 line(今やっている方法)で最後とその一つ前に描画したlineのnameの     取得の仕方を教えてください。
 質問3 本当は2本消して2本描画2本消して2本描画というように、頂点が移     動しているように見せたいのですが、できますか?

以下今まで作成したコードです。

Sub 三角形の描画()

  
  With Sheets("sheet1").Shapes
    .AddLine 200, 200, 400, 200
    .AddLine 200, 200, 340, 100
    .AddLine 340, 100, 400, 200
    DoEvents
    Application.Wait (Now + TimeValue("0:00:01"))
    .AddLine(50, 200, 600, 200).Line.DashStyle = msoLineDashDot
    .AddLine(50, 100, 600, 100).Line.DashStyle = msoLineDashDot
  End With
End Sub

Sub 頂点の移動()
  With Sheets("sheet1").Shapes
    For i = 5 To 250 Step 10
    With .AddLine(200, 200, 340 + i, 100).Line
      .DashStyle = msoLineDash
      .ForeColor.RGB = RGB(255 - i, 100, 100)
    End With
    With .AddLine(340 + i, 100, 400, 200).Line
      .DashStyle = msoLineDash
      .ForeColor.RGB = RGB(255 - i, 100, 100)
    End With
    Application.Wait (Now + TimeValue("0:00:01"))
    Next
'  A = Sheets("sheet1").Shapes.Count
'  Sheets("sheet1").Shapes.Range(Array(A - 1, A)).DashStyle = msoLineSolid
   '↑シェイプの数を取得して最後とその一つ前を実線にしようとしましたが、
   'うまくいきませんでした。 
 
  End With
End Sub

Sub 図の削除()

ActiveSheet.Lines.Delete

End Sub

0 hits

【22204】三角形の頂点の座標は? ponpon 05/2/11(金) 12:46 質問
【22205】Re:三角形の頂点の座標は? V 05/2/11(金) 13:26 発言
【22206】Re:三角形の頂点の座標は? bykin 05/2/11(金) 14:31 回答
【22207】Re:三角形の頂点の座標は? bykin 05/2/11(金) 14:40 発言
【22213】Re:三角形の頂点の座標は? ponpon 05/2/11(金) 20:05 お礼
【22248】Re:三角形の頂点の座標は? ponpon 05/2/13(日) 13:01 質問
【22249】Re:三角形の頂点の座標は? bykin 05/2/13(日) 14:01 回答
【22250】Re:三角形の頂点の座標は? ponpon 05/2/13(日) 15:19 発言
【22251】Re:三角形の頂点の座標は? bykin 05/2/13(日) 17:38 回答
【22252】Re:三角形の頂点の座標は? ponpon 05/2/13(日) 18:28 お礼
【22253】Re:三角形の頂点の座標は? bykin 05/2/13(日) 18:36 回答
【22254】Re:三角形の頂点の座標は? ponpon 05/2/13(日) 19:07 お礼
【22256】Re:三角形の頂点の座標は? bykin 05/2/13(日) 21:52 発言
【22425】Re:三角形の頂点の座標は? ponpon 05/2/19(土) 10:02 お礼

59235 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free