insert تصویر در اسناد word

[gh_khajehzade]

با سلام به اساتید گرامی-چطوری میتونم تصویر یک امضاء رو در محل خاصی در یک سند word که در اون ,(محل امضاء), نوشته شده قرار بدم؟

[pooya1072]

دوست عزیز
با اینکه انجمن رو اشتباهی اومدی ولی توی برنامه word از منوی insert گزینه picture سپس گزینه fromfile رو انتخاب کن.توی فرم باز شده امضایی که به صورت عکس در آوردی رو انتخاب کن.
خلاص.......................

[gh_khajehzade]

pooya1027 گرامی ,ضمن تشکر ,منظورم با استفاده از کد vb است.

[pooya1072]

با سلام دوباره
ببخشید دیر شد ...هم گرفتار بودم و هم دقیق راهش رو بلد نبودم.ولی پیداش کردم...بدرد خودم هم خورد.
یه فرم بساز و یه 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