Excel VBA Macro: Export Selected Range as Image (Save Range as Picture) скачать в хорошем качестве

Excel VBA Macro: Export Selected Range as Image (Save Range as Picture)

💼 Hire Me for Excel VBA Automation Need help automating your Excel workflows? I specialize in building custom Excel VBA solutions to save you time and eliminate repetitive tasks. 👉 https://www.upwork.com/freelancers/~0... Excel VBA Macro: Export Selected Range as Image (Save Range as Picture) 📈Open a Webull brokerage account and get up to 12 FREE stocks: https://a.webull.com/3xbKZC7ZoXzmhAHnrk 💥Subscribe:    / @greggowaffles   Code: Sub save_range_as_image() Dim ws As Worksheet Dim table As Range Dim pic As Picture Dim cht As ChartObject Dim myPath As String Dim myPic As String Dim myWidth As Long Dim myHeight As Long Set ws = ThisWorkbook.Sheets("S&P 500 Stocks") Set table = ws.Range("A1:C11") myPath = "C:\Users\greggowaffles\Documents\Youtube Videos\Test\Investing\" myPic = "Stock Performance " & Format(Date, "mm-dd-yy") & " " & _ WorksheetFunction.RandBetween(1000, 9999) & ".png" table.CopyPicture xlScreen, xlPicture myWidth = table.Width myHeight = table.Height Set cht = ws.ChartObjects.Add(Left:=0, Top:=0, _ Width:=myWidth, Height:=myHeight) cht.Activate With cht.Chart .Paste .Export Filename:=myPath & myPic, Filtername:="png" End With cht.Delete End Sub #ExcelVBA #ExcelMacro