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.

excelente aporte, me sirvio mucho

Thanks a lot for this code this what I wanted exactly

Thanks, this worked fine!

@ExcelDestination

3 жыл бұрын

You're welcome!

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?

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?

Good Explained. Sir Make video on export range as txt file.

@ExcelDestination

3 жыл бұрын

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 : kzread.info/dash/bejne/q6Brqa2JiKyfpNI.html

Thank you for the video. Please send this code in comment

Great video. How do you remove the border from the chart?

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

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.

@teguhsampurna1482

2 жыл бұрын

you can replace PicTemp.Width to 1280 an height to 720

@MikaelGreenFly

4 ай бұрын

@@teguhsampurna1482 Awesome! Thank you so much!

Sir can we do the same with table? Table does not have fixed range

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)

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

Sorry it was my typing mistake as u said solved it ... TQ

@ExcelDestination

3 жыл бұрын

Oh.....Great.

Can you please help me to get proper result Also i get image streched in landscape mode my image is portrait mode

thx it is very useful I have some questions about the picture size and Clarity could you help me？

@ExcelDestination

3 жыл бұрын

you can share your excel vba requirement at exceldestination@gmail.com

@alexchan2025

3 жыл бұрын

@@ExcelDestination yes，i will send you later，thx a lot

Thanks man, this work for some forms too ?

@ExcelDestination

3 жыл бұрын

welcome

Thank you for the video. Unfortunately when I do this, the picture produced is very low quality. Can you help me with this

@ExcelDestination

3 жыл бұрын

not sure.

@leoazarro3984

3 жыл бұрын

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

@Dragz672

3 жыл бұрын

@@leoazarro3984 thank you! I will try that

@leoazarro3984

3 жыл бұрын

@@Dragz672 you're welcome, friend

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"

@ExcelDestination

3 жыл бұрын

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.

hello sir when i capture pic the quantity not good please help tell me too how i do?

How to save this file trough cell text

Also your website doesn't work, I'd be happy to set one up for free for you as this is a good channel :)

How to save pic using cell value as file name? Kindly help me out

Can you send the project file?

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

@ExcelDestination

3 жыл бұрын

please send me email at exceldestination@gmail.com I will provide you the original file. You can modify that and use that.

Please send this code in comment

@ExcelDestination

3 жыл бұрын

ok, let me check

@thuyphanang5970

Жыл бұрын

Please send this code in comment

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

@ExcelDestination

3 жыл бұрын

sure!!!

@shahzadisrani2616

3 жыл бұрын

@@ExcelDestination Waiting Sir

@shahzadisrani2616

3 жыл бұрын

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

How to save image name from cell

Image is too much distorted and no quality