出来ないでしょう。
絵を貼り付けるなら可能です。
Private Sub Command1_Click()
With Picture1
.AutoRedraw = True
.BorderStyle = 0
.Cls
.BackColor = MSFlexGrid1.BackColor
.ForeColor = vbBlack
Picture1.Print "黒";
.ForeColor = vbRed
Picture1.Print "赤"
.Width = .TextWidth("黒赤")
.Height = .TextHeight("黒赤")
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 1
Set MSFlexGrid1.CellPicture = .Image
End With
End Sub
お礼
やっぱり無理ですか。それだけ確認できただけでも収穫ありました。ありがとうございました。