एक्सेल में URL से छवियाँ माइग्रेट करना

Question

एक्सेल में URL से छवियों के पलायन के बारे में इस चर्चा का संदर्भ मैं एक्सेल सेल में छवि के रूप में URL कैसे प्रदर्शित कर सकता हूं?

वीबीए कोड एकदम सही और काम कर रहा है, मेरा सवाल यहां यह है कि मैं प्रत्येक माइग्रेटेड छवि को निर्दिष्ट आकार के साथ आसन्न सेल में कैसे रख सकता हूं। उदाहरण के लिए यदि मेरे पास सेल A1 में एक URL है, तो छवि को सेल B1 में 100X100 आकार के साथ रखा जाना चाहिए।

मैं मदद की सराहना करता हूं

Answer 1

इस संशोधन का प्रयास करें:

Sub InstallPictures_2()
    Dim i As Long, v As String, shp As Shape
    For i = 1 To 1000
        v = Cells(i, "A").Value
        If v = "" Then Exit For
        With ActiveSheet.Pictures
            .Insert (v)
            Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub

Comments

कोड सिर्फ आवश्यकतानुसार काम कर रहा है, बहुत बहुत धन्यवाद। हालांकि, मुझे एक चिंता है, यह बहुत धीमी है, 60 वस्तुओं को स्थानांतरित करने के लिए एक घंटे, प्रक्रिया को कैसे तेज कर सकते हैं या क्या हिस्सा है जो निष्पादन के इस समय का कारण बनता है, क्या यह प्रवास है या आकार बदलने या क्या है। बहुत बहुत धन्यवाद, सराहना की।

— Christine

@Christine कोड मेरे सिस्टम पर भी धीमा है। मुझे अपना ब्राउज़र खोलने से गति में एक मामूली सुधार मिलता है से पहले कोड चला रहा है।

— Gary's Student

@Christine आपका बहुत स्वागत है!

— Gary's Student