Text, Chr(10), "") End With Exit For End If Next Shp If Err.Number > 0 Then MsgBox "no shape selected" End Sub. Notes .Text = Replace(.Text, Chr(10), "")
確定! 回上一頁