This Excel VBA Macro examples VBA Code to export excel range or shape as image. We can automate task to save as Image or save as a png file.
Пікірлер: 49
@diversityiscool2 жыл бұрын
Thanks for this. Haven't tried it but looks promising. Will try it out soon to see if it will improve our efficiency at the office.
@sanjana3709 Жыл бұрын
Thanks a lot for this code this what I wanted exactly
@jamieharper56652 жыл бұрын
Hey :D This was super helpful and I added a bit of my own code in there too to make the desktop location dynamic! I am however having an issue with the exported image being squashed ... Would I be able to contact you to see what I'm doing wrong?
@usommer643 жыл бұрын
Thanks, this worked fine!
@ExcelDestination3 жыл бұрын
You're welcome!
@romulotriveno1155 Жыл бұрын
excelente aporte, me sirvio mucho
@solana-king2 жыл бұрын
I am trying to print 1000 random RGB colors to each be saved separately as different files. Any ideas on how best to do this using this save feature?
@steveparrott97623 жыл бұрын
Great video. How do you remove the border from the chart?
@ThuyTrinh-hi8od3 жыл бұрын
Thank you for the video. Please send this code in comment
@123456789munish2 жыл бұрын
Sir can we do the same with table? Table does not have fixed range
@k.k.sabariraj64842 жыл бұрын
how to add multiple sheets to convert images ( in my daily application using 5 sheets data s convert to image by using paint application only)
@ExcelMadeEasy4443 жыл бұрын
Good Explained. Sir Make video on export range as txt file.
@ExcelDestination3 жыл бұрын
Thanks for your comment. I have already created the tutorial to transfer data from excel to notepad. Please check the tutorial at below given link : kzfaq.info/get/bejne/r9Jneq6Bva-dpKM.html
@thebiglebowski5661 Жыл бұрын
Thx for sharing this Although i would say that reading a code without, for most of the lines, giving detailed info as to why using this method with this value, doesn't bring much added value
@esbelaindonesia72913 жыл бұрын
HI, I have a problem with longer size range, where the jpg picture is very low resolution and very skewed, any tips how to fix it? as if i use picture cut and paste the picture quality is much better.
@teguhsampurna14822 жыл бұрын
you can replace PicTemp.Width to 1280 an height to 720
@MikaelGreenFly3 ай бұрын
@@teguhsampurna1482 Awesome! Thank you so much!
@CharlyEduard972 Жыл бұрын
Hello, greetings, the macro works but the image is created with low resolution and when it is enlarged, the data is not seen well, how could it be done with vba code to improve the image quality. thank you
@ravi100i2 жыл бұрын
Can you please help me to get proper result Also i get image streched in landscape mode my image is portrait mode
@alexchan20253 жыл бұрын
thx it is very useful I have some questions about the picture size and Clarity could you help me?
@ExcelDestination3 жыл бұрын
you can share your excel vba requirement at exceldestination@gmail.com
@alexchan20253 жыл бұрын
@@ExcelDestination yes,i will send you later,thx a lot
@Dragz6723 жыл бұрын
Thank you for the video. Unfortunately when I do this, the picture produced is very low quality. Can you help me with this
@ExcelDestination3 жыл бұрын
not sure.
@leoazarro39843 жыл бұрын
In the line With ch_temp.Parent .Width = PicTemp.Width .Height = PicTemp.Height End With Set the values, e.g. With ch_temp.Parent .Width = 560 .Height = 500 End With
@Dragz6723 жыл бұрын
@@leoazarro3984 thank you! I will try that
@leoazarro39843 жыл бұрын
@@Dragz672 you're welcome, friend
@aistensilva3 жыл бұрын
Thanks man, this work for some forms too ?
@ExcelDestination3 жыл бұрын
welcome
@vikrambohra19853 жыл бұрын
sir am getting a error in this line "pic_rng.CopyPicture Apperance:=xlScreen, Format:=xlPicture"... a pop up msg showing "compile error named arugument not found"
@ExcelDestination3 жыл бұрын
without looking at the code, I can not say anything, but, I hope that there is some typo mistake. If you want to use my file, send me email at exceldestination@gmail.com I will send you the original file, you can modify that and use that........thanks for watching and subscribing my channel.
@theanea_Gaming_official2 жыл бұрын
hello sir when i capture pic the quantity not good please help tell me too how i do?
@vikrambohra19853 жыл бұрын
Sorry it was my typing mistake as u said solved it ... TQ
@ExcelDestination3 жыл бұрын
Oh.....Great.
@chiranjiviniroula8633 жыл бұрын
How to save this file trough cell text
@jamieharper56652 жыл бұрын
Also your website doesn't work, I'd be happy to set one up for free for you as this is a good channel :)
@mohamedrajick905010 ай бұрын
How to save pic using cell value as file name? Kindly help me out
@salimkoc4254 Жыл бұрын
Can you send the project file?
@karmusinghsiddhu1903 жыл бұрын
sir can pls help me to correct it 'Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rCell As Range, MyRange As Range Dim counter As Long, Destrow As Long Dim wsData As Worksheet, wslist As Worksheet Dim lastrow As Long On Error Resume Next Application.ScreenUpdating = True Range("M10").Formula = "=(IF(AND(D5="",E5="",F5="")),"",(G4+D5-E5-F5)))" 'Selection.AutoFill Destination:=Range("M10:M50") 'Target.Offset(1).EntireRow.Insert 'Target.EntireRow.Copy Target.Offset(1).EntireRow 'Range("F50").AutoFill Destination:=Range(balance D4+D50, E5+E50,D50+E50) Application.ScreenUpdating = True End Sub
@ExcelDestination3 жыл бұрын
please send me email at exceldestination@gmail.com I will provide you the original file. You can modify that and use that.
@gargpawan Жыл бұрын
How to save image name from cell
@shahzadisrani26163 жыл бұрын
Error "Set pic_rng = Worksheets("Sheet8").Range("A1:J43")" Dear Sir, it is very magically file but if you can add some coding more in it so it is very favorable file for everyone. Like when we create jpeg or png file that time it will save by allocated cell where we put file name then it automatically open after saving. Thanks, Waiting for your reply Also sent email
@ExcelDestination3 жыл бұрын
sure!!!
@shahzadisrani26163 жыл бұрын
@@ExcelDestination Waiting Sir
@shahzadisrani26163 жыл бұрын
Sir now it's worked great but want to ask 1 thing more if I added file name on cell of file suppose on Cell K1 (ABC File) & Location on Cell K2 so kindly suggest when I click button It automatically saved in k2 location & saved name in K1 & then it open. Thanks