有没有既能编辑文本又能插入对象的控件？

Question

控件恐怕没有
但可以调用相关的API
因该在Shell库里面

Answer 1

下面演示如何插入一个对像
On Error Resume Next
ComDialog1.CancelError = True
ComDialog1.DialogTitle = "插入图片"
ComDialog1.Filter = "所有图型文件|*.dib;*.bmp;*.wmf;*.emf;*.gif;*.jpg|" & _
         "位图文件(*.bmp,*.dib)|*.bmp;*.dib|" & _
         "GIF图像(*.gif)|*.gif|" & _
         "JPEG图像(*.jpg)|*.jpg|" & _
         "元文件(*.wmf,*.emf)|*.wmf;*.emf|" & _
         "图标文件(*.ico,*.cur|*.ico;*.cur|" & _
         "所有文件(*.*)|*.*|"
ComDialog1.flags = 1
ComDialog1.ShowOpenIf Err <> mscomdlg.cdlCancel Then
RTBox1.OLEObjects.Add , , ComDialog1.FilenameEnd If