نحوه استفاده از 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

[منتظران منتظر]

سلام دوست عزیز
از داخل فرمی که طراحی کردید وقتی که بر روی آدرس hyperlink ایجاد شده توسط دکمه کلیک می کنیم لینک مورد نظر باز نمی شود آیا برای این مساله راهی هست؟
در ضمن وفتی که بر روی دکمه کلیک می کنیم آیا راهی هست که پنجره Insert hyperlink باز شود؟
ممنونم