J
justme0010
I have code in an Access VBA module that creates a workbook in Excel. I
am trying to create and manipulate an Excel textbox. I am able to
create the textbox, and place text in it, but how can I change the
background color? This doesnt work:
With .ActiveSheet.Shapes("Text Box 2")
..ShapeRange.Fill.ForeColor.SchemeColor = 39
End With
This also does does not work:
..ActiveSheet.Shapes("Text Box 2").Select
objExcel.Selection.ShapeRange.Fill.ForeColor.SchemeColor = 20
However, this *does* work:
With .ActiveSheet.Shapes("Text Box 2").TextFrame
..Characters.Text = "My Text"
End With
note: objExcel is an Excel.Application object
by the way, for no apparent reason in this post, there is incorrectly a
space showing up in "SchemeColor", but thats not my code
am trying to create and manipulate an Excel textbox. I am able to
create the textbox, and place text in it, but how can I change the
background color? This doesnt work:
With .ActiveSheet.Shapes("Text Box 2")
..ShapeRange.Fill.ForeColor.SchemeColor = 39
End With
This also does does not work:
..ActiveSheet.Shapes("Text Box 2").Select
objExcel.Selection.ShapeRange.Fill.ForeColor.SchemeColor = 20
However, this *does* work:
With .ActiveSheet.Shapes("Text Box 2").TextFrame
..Characters.Text = "My Text"
End With
note: objExcel is an Excel.Application object
by the way, for no apparent reason in this post, there is incorrectly a
space showing up in "SchemeColor", but thats not my code