S
Stuart
I create an ActiceX Textbox, with wraptext, Tab key and
Enter key enabled.
When I enter text data, the layout in the textbox is fine.
However when I delete the box it all goes haywire...........
that's to say the first cell's rowheight increases to match
the overall 'height' of the textbox, and all the data is in one
column.
Can I preserve the data layout, when the box is deleted
please?
In addition, there are little square 'box' characters amongst
the data. Why is this please?
Here's the kindly given delete code:
With ActiveWorkbook.Sheets("Contract Master Order")
.Unprotect Password:="SGB"
.Cells.Locked = False
Dim oleObj As OLEObject
Dim rng As Range
For Each oleObj In ActiveWorkbook.Sheets _
("Contract Master Order").OLEObjects
If TypeOf oleObj.Object Is MSForms.TextBox Then
Set rng = oleObj.TopLeftCell
rng.Value = oleObj.Object.Value
oleObj.Delete
End If
Next
End With
Regards.
Enter key enabled.
When I enter text data, the layout in the textbox is fine.
However when I delete the box it all goes haywire...........
that's to say the first cell's rowheight increases to match
the overall 'height' of the textbox, and all the data is in one
column.
Can I preserve the data layout, when the box is deleted
please?
In addition, there are little square 'box' characters amongst
the data. Why is this please?
Here's the kindly given delete code:
With ActiveWorkbook.Sheets("Contract Master Order")
.Unprotect Password:="SGB"
.Cells.Locked = False
Dim oleObj As OLEObject
Dim rng As Range
For Each oleObj In ActiveWorkbook.Sheets _
("Contract Master Order").OLEObjects
If TypeOf oleObj.Object Is MSForms.TextBox Then
Set rng = oleObj.TopLeftCell
rng.Value = oleObj.Object.Value
oleObj.Delete
End If
Next
End With
Regards.