在运行时VBA命名行连接器 [英] Naming Line connectors at Runtime VBA
问题描述
您好我的名字是Eric很高兴见到你们所有人.....
我有一个简单的问题。我想说出一个形状擅长创作......我可以在宏中命名行....但是我希望在其名称之后创建的所有其他行在保持其父名称的同时被编号或给出唯一标识符吉米。我相信它与事件处理程序有关,但我是新手擅长确定我需要什么...........请帮助某人!下面附带的代码...... ......
喜欢Jimmy1Jimmy2等
Hello My Name IS Eric Nice To Meet you all .....
I have a simple Question .I would like to name a shape in excel upon its creation ...... I Can name the"line" in the macro ....But I would like every other line created after its Name to be "numerated or given a unique identifier while keeping its parent name "Jimmy". I believe it has to do with a "event Handler " but i am way to new to excel to determine exactly what i need ...........Please Help Someone ! code attached below .........
Like "Jimmy1" "Jimmy2" etc
Sub Neave_Click()
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 400, 150, 800, 150).Select
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadShort
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadStealth
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadNarrow
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadShort
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadStealth
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadNarrow
Selection.ShapeRange.Line.Weight = 2.5
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.Name = "Jimmy"
End Sub
提前谢谢Eric Maxfield
Thank you in advance Eric Maxfield
推荐答案
Dim lineNumber As Integer
Sub Neave_Click()
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 400, 150, 800, 150).Select
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadShort
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadStealth
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadNarrow
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadShort
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadStealth
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadNarrow
Selection.ShapeRange.Line.Weight = 2.5
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
lineNumber = lineNumber + 1
Selection.Name = "Jimmy" & lineNumber
End Sub
这篇关于在运行时VBA命名行连接器的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!