Message box display

[julhs]

I’ve been playing around with adapting the 2 shape routines below to return results as one;
With this from Norie
VBA Shape Node Points x position
and "DetermineShapeType" from "The SpreadsheetGuru";
VBA Coding For Shapes (The Complete Guide)

My code code todate is this.

Option Explicit
'     Combining "Determine Shape Type" with "Get Points"
Sub MeDetermineShapeTypeGetPoints()
Dim sh As Variant
Dim nd As Variant
Dim xy As Variant
Dim nodemsg As String
Dim I As Variant

Dim ActiveShape As Shape
Dim UserSelection As Variant

'Pull-in what is selected on screen
  Set UserSelection = ActiveWindow.Selection

'Determine if selection is a shape
  On Error GoTo NoShapeSelected
    Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name)
  On Error Resume Next
  
   Set sh = ActiveShape 'ActiveWindow.Selection
    For Each nd In sh.Nodes
        xy = nd.Points
        I = I + 1
        nodemsg = nodemsg & "The Select Shape Type = " & ActiveShape.AutoShapeType & vbLf & "Node " & I & ": x =" & xy(1, 1) & " y=" & xy(1, 2) & vbCrLf      
    Next
        MsgBox nodemsg    
 'Error Handler
NoShapeSelected:
  MsgBox "You do not have a shape selected!"    
End Sub

My trouble is I can’t fathom out how to display the 2 results in the message box in the way I want them to appear.
This is the result of my code above at combining them todate.



BUT I want Msg box to display as,

The Selected Shape Type = 138
Node 1:x=205.2y=879.2
Node2 ........
Node3.........
etc

Note; when code is run it does default to the error handler at the end of the routine, which I need to address in some way

 

[PeteWright]

My trouble is I can’t fathom out how to display the 2 results in the message box in the way I want them to appear.

You need to separate the output.

Try following:

nodemsg = nodemsg & "Node " & I & ": x =" & xy(1, 1) & " y=" & xy(1, 2) & vbCrLf
Next
MsgBox "The Select Shape Type = " & ActiveShape.AutoShapeType & vbLf & nodemsg

 

[julhs]

Thanks for response Peter
Worked as I wanted.
BUT have would I add a blank line/space between "The Select Shape Type" and the "Node1......"

The Selected Shape Type = 138

Node 1:x=205.2y=879.2
Node2 ........
Node3.........
etc

 

[julhs]

Ok figured it out.

nodemsg = nodemsg & "Node " & I & ": x =" & xy(1, 1) & " y=" & xy(1, 2) & vbCrLf
Next
MsgBox "The Select Shape Type = " & ActiveShape.AutoShapeType & vbCrLf & vbCrLf & nodemsg

 

[PeteWright]

here it is:

nodemsg = nodemsg & "Node " & I & ": x =" & xy(1, 1) & " y=" & xy(1, 2) & vbCrLf
Next
MsgBox "The Select Shape Type = " & ActiveShape.AutoShapeType & vbLf & vbLf & nodemsg

 

[julhs]

Interested to know why you are using

vbLf and not vbCrLf

 

[PeteWright]

Uh, must be a mistake, didn't notice that.
Should be vbCrLf instead

 

[julhs]

Didn't realy make any difference as vbLf worked just as well.
Many thanks for your help
Julhs