5
मेरे पास एक एक्सेल फ़ाइल (xlsm) है और मैं प्रिंट क्षेत्र (पूर्ण आकार में) को एक छवि (पीएनजी या किसी अन्य चित्र फ़ाइल प्रारूप) के रूप में निर्यात करना चाहता हूं।एक छवि के रूप में एक्सेल प्रिंट क्षेत्र निर्यात करें
मेरे पास एक वीबीए मैक्रो है, जो एक्सेल 2013 में कई पीसी पर ठीक काम करता है, लेकिन चूंकि हम एक्सेल 2016 के साथ काम करते हैं, यह केवल एक खाली छवि निर्यात करता है।
Sub pic_save()
Worksheets("Sheet1").Select
Set Sheet = ActiveSheet
output = C:\pic.png"
zoom_coef = 100/Sheet.Parent.Windows(1).Zoom
Set area = Sheet.Range(Sheet.PageSetup.PrintArea)
area.CopyPicture xlPrinter
Set chartobj = Sheet.ChartObjects.Add(0, 0, area.Width * zoom_coef, area.Height * zoom_coef)
chartobj.Chart.Paste
chartobj.Chart.Export output, "png"
chartobj.Delete
End Sub
धन्यवाद:
और समारोह उत्पन्न छवि के पथ प्राप्त करने के लिए आप, यह पूरी तरह से ठीक काम है। – Zsmaster
@Zsmaster: खुशी है कि मैं मदद कर सकता हूँ! ;) – R3uK