نحوه استفاده از insert hyperlink به وسیله کد نویسی

[مهدی قربانی]

سلام
اين نمونه عمليات مورد نظر شما رو پياده سازي مي كنه :

Private Sub Command4_Click()

Dim strFile As String

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

f.Show



If f.SelectedItems.Count > 0 Then

strFile = f.SelectedItems(1)

End If



Me.a = strFile

End Sub