在运行时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屋！