Einfügen von Text in Excel-Textbox aus Access
12.09.2006 19:20:53
Text
in Excel keinen Text in eine Textbox in Excel füllen kann.
Hier der Code:
Sub test()
Dim oapp As New Excel.Application
Dim wkb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim tbox As Excel.Shape
Set oapp = CreateObject("Excel.Application")
With oapp
Set wkb = .Workbooks.Add
Set ws = wkb.ActiveSheet
wkb.Activate
Set tbox = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, _
0, 0, 200, 50)
tbox.Select
With Selection
.Characters.Text = "Hallo ..."
End With
.Visible = True
.UserControl = True
End With
End Sub
Ergebnis: Die Textbox wird erzeugt und bleibt leer.
Ich würde mich freuen, wenn mir da jemand weiterhelfen könnte