با سلام دوباره
ببخشید دیر شد ...هم گرفتار بودم و هم دقیق راهش رو بلد نبودم.ولی پیداش کردم...بدرد خودم هم خورد.
یه فرم بساز و یه command bottom روش قرار بده.کد زیر رو هم کپی کن.
موفق باشی
Dim w1 As Word.Application
Dim InPic As Dialog
Private Sub Command1_Click()
Set InPic = Dialogs(wdDialogInsertPicture)
With InPic
.Display
If .Name <> "" Then
ActiveDocument.Shapes.AddPicture FileName:=.Name, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=400, _
Top:=300, _
Width:=150, _
Height:=150, _
Anchor:=Selection.Range
End If
End With
Set InPic = Nothing
End Sub
Private Sub Form_Load()
Set w1 = CreateObject("word.application")
hword = w1.Application.Documents.Add
w1.Application.Visible = True
Form1.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
w1.Application.Quit True
End Sub