[问题] 选定两字段,增加线条

楼主: yenwang (孤狼)   2017-09-27 00:28:07
想请问大家
目前想在选定两字段
譬如D3和F7之间画线条
小程式大概如下
Sub LINE_P()
With ActiveSheet.Shapes.AddLine([D3].Left, [D3].Top, [F7].Left, [F7].Top).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(112, 48, 160)
End With
但想要改成两字段由使用者定义
不知到要怎么改
想让[D3], [F7]改成变量输入
想请问版上高手,可否解惑!
作者: soyoso (我是耀宗)   2017-09-27 01:04:00
如使用者定义以变量=inputbox取得储存格字串的话range(变量).left或top如以set 变量= application.inputbox,type为8的话,则以变量.left或top

Links booklink

Contact Us: admin [ a t ] ucptt.com