Подавить / запретить открытие приложения при добавлении OLEObject в Richtextbox - PullRequest
0 голосов
/ 01 июня 2019

Когда я добавляю OLEObject (скажем, изображение) в Richtextbox формы в VBA, приложение / окно (mspaint для моего случая) открывается перед показом формы. Как я могу запретить открытие приложения?

Private Sub UserForm_Initialize()

Dim sFlangeSketch As String
Dim oFlangeSketch As RichTextLib.OLEObject

sFlangeSketch = "C:\01.bmp"
Set oFlangeSketch = RichTextBox1.OLEObjects.Add(Source:=sFlangeSketch)

End Sub
...