請問, 我在使用Excel VBA 畫線的時候, 會發生定位不準的情形, 當距離越遠時, 跑掉的幅度越大. Wiin10 & Excel 都重新安裝了, 還是一樣.
程式碼如下:
Set startrange = Range("D4")
Set endrange = Range("U36")
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, startrange.Left, startrange.Top, endrange.Left, endrange.Top).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 1
.ForeColor.RGB = RGB(192, 0, 0)
.Transparency = 0
End With
結果如下:
從D4 畫到U36. 底下也附上 D4 與U36 的放大圖.
您好
,
sriver.wu
非常抱歉，給您帶了不便，我們會盡力幫助您解決問題
您的問題是：Excel VBA 畫線 位置會跑掉
=======================================================================
您好，很抱歉，這個超出了我們的技術支援範圍了，您可以向我們的
Technet 論壇 (microsoft.com)
這裡咨詢，另外，請問您新的空白檔案直接執行您的命令。不設定，您看看是否對齊了？
=======================================================================
如未解決問題，您可以繼續回復此貼，我們會繼續跟進您的問題
希望我的回答對您有幫助！
Jhon zhu
如果我们的回复对您有所帮助，请您标记。
这将会帮助到其他与您遇到同样问题的用户！
非常感谢您为社区作出的贡献！
如您的问题没有解决，您可以再次回复帖子，
我们会继续为您提供技术支持 我们秉承客户至上的服务理念。
如果您对微软工程师在论坛中的服务有意见与建议，欢迎提出，以便我们提供更优质的服务。
Microsoft Answers欢迎您！
剛開了個全新的檔案, 再執行就正常了.
請問, 是哪裡設定有問題嗎?
您好,
sriver.wu
非常抱歉，給您帶了不便，我們會盡力幫助您解決問題
您的問題是：Excel VBA 畫線 位置會跑掉
=======================================================================
您好，很抱歉，這個超出了我們的技術支援範圍了，您可以向我們的
Technet 論壇 (microsoft.com)
這裡咨詢，不過，初步猜測，他不是根據您設定D4和u36的位置，而是根據當初的起點的軸的位置和您結束的位置。因為，我們在測試機上嘗試執行您的代碼的時候，沒有設定D4和u36，以及在其他地方設定D4 和U36，但是線還是在哪個位置，所以，估計應該是根據您設定的起點和重點的設定方位值畫的線。因為我自己使用劃線工具話，就是有起點和終點。所以就是您是代碼。應該也是基於同樣的道理。
=======================================================================
如未解決問題，您可以繼續回復此貼，我們會繼續跟進您的問題
希望我的回答對您有幫助！
Jhon zhu
如果我们的回复对您有所帮助，请您标记。
这将会帮助到其他与您遇到同样问题的用户！
非常感谢您为社区作出的贡献！
如您的问题没有解决，您可以再次回复帖子，
我们会继续为您提供技术支持 我们秉承客户至上的服务理念。
如果您对微软工程师在论坛中的服务有意见与建议，欢迎提出，以便我们提供更优质的服务。
Microsoft Answers欢迎您！
