Hello everyone,I need this macro codes please
This is Excel vba codesi need to coreldraw please..
Sub Combine() Dim J As Integer
If Selection.Cells.Count > 1 Then For J = 2 To Selection.Cells.Count Selection.Cells(1).Value = _ Selection.Cells(1).Value & " " & _ Selection.Cells(J).Value Selection.Cells(J).Clear Next J End IfEnd Sub
Thanks..!
Here is some code to get you started.
Sub CombineTextSingleLine() Dim srSelection As ShapeRange Dim strCombineText As String Dim s As Shape Dim i As Integer Set srSelection = ActiveSelectionRange If srSelection.Count < 1 Then MsgBox "Please select some text.", , "Combine Text to Single Line" If srSelection.Shapes.Count = 1 Then strCombineText = Replace(srSelection.FirstShape.Text.Story, Chr(10), "") strCombineText = Replace(strCombineText, Chr(13), " ") Else srSelection.Sort "@shape1.Top > @shape2.Top" For i = 1 To srSelection.Shapes.Count If i = 1 Then strCombineText = srSelection(i).Text.Story Else strCombineText = strCombineText & " " & srSelection(i).Text.Story srSelection(i).Delete End If Next i End If srSelection.FirstShape.Text.Story = strCombineText End Sub
Happy coding,
-Shelby
Thank a lot Shelby & Myron..!!!!!!