یکی از راه‌هایی که می‌توانید از داده‌های اینترنت در کاربرگ اکسل استفاده کنید، کپی کردن آن از یک صفحه وب و سپس چسباندن آن در کاربرگ است. به عنوان مثال، می توانید جدولی از داده ها را در یک صفحه وب انتخاب کنید، Ctrl+C را فشار دهید تا آن را در کلیپ بورد کپی کنید، سلولی را در اکسل انتخاب کنید و سپس Ctrl+V را فشار دهید . اکسل تمام تلاش خود را می کند تا داده ها را تجزیه کند و آنها را در سلول های مناسب قرار دهد، درست مانند جدول اصلی.
مشکل این است که اغلب بیشتر از داده های جدول دریافت می کنید. اگر اشیاء دیگری در داده‌هایی که از وب کپی کرده‌اید وجود داشته باشد، آن اشیا نیز در کاربرگ جایگذاری می‌شوند. غیر معمول نیست که در نهایت با انواع گرافیک های کوچک در کاربرگ مواجه شوید. اگر این گرافیک ها در ابتدا هایپرلینک بودند، ممکن است بخواهید در واقع لینک را استخراج کنید و سپس گرافیک را حذف کنید. این باعث می شود داده های موجود در کاربرگ بسیار قابل استفاده تر شود.
راه انجام این کار با ماکرو است. هنگامی که اطلاعات وب را در کاربرگ قرار دادید، ماکرو زیر را اجرا کنید.
Sub ConvertHLShapes()
Dim shp As Shape
Dim sTemp As String
For Each shp In ActiveSheet.Shapes
sTemp = ""
On Error Resume Next go to next shape if no hyperlink
sTemp = shp.Hyperlink.Address
On Error GoTo 0
If sTemp <> "" Then
shp.TopLeftCell.Value = sTemp
shp.Delete
End If
Next
End Sub
این ماکرو از هر یک از اشکال موجود در کاربرگ عبور می کند. سپس بررسی می کند که آیا شکل دارای یک پیوند مرتبط است یا خیر. اگر اینطور باشد، آدرس آن لینک (در متغیر sTemp) در سلول در گوشه سمت چپ بالای جایی که شکل قرار دارد قرار می گیرد. ماکرو هر شکلی را که دارای پیوند هستند حذف می کند. شما می توانید آن را مجبور کنید که تمام اشکال موجود در کاربرگ را به سادگی با حرکت دادن خط shp.Delete به خارج از ساختار If ... End If حذف کند.
