ورود

View Full Version : لینک دادن به یک سایت در VBA اکسل


farshid-ar
شنبه 23 خرداد 1388, 10:38 صبح
با سلام من یک userform تو اکسل ماکرو ساختم که توش یک عکس هست میخوام با کلیک رو عکس به یک سایت مورد نظر با browser باز شود
ممنون میشم راعنمایی کنید
Afshin160
شنبه 23 خرداد 1388, 13:05 عصر
سلام ..
كافي شما در يه cell قرار بگيريد و كليد Ctrl+K را فشار دهيد ... و حال در قسمت Address مورد نظر را بنويسيد.
ودر vba نيز در event كليك عكس كد زير را بنويسيد :



Private Sub Image1_Click()
Const Hyper As String = "http://www.google.com"
ThisWorkbook.FollowHyperlink Address:=Hyper ', NewWindow:=True
End Sub


موفق باشيد.