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?
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
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 : ruclips.net/video/yl7GKPXI9to/видео.html
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.
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
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
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"
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.
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
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
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
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.
Thanks a lot for this code this what I wanted exactly
excelente aporte, me sirvio mucho
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?
Thanks, this worked fine!
You're welcome!
Great video. How do you remove the border from the chart?
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?
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
Thank you for the video. Please send this code in comment
Good Explained.
Sir Make video on export range as txt file.
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 :
ruclips.net/video/yl7GKPXI9to/видео.html
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)
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.
you can replace PicTemp.Width to 1280 an height to 720
@@teguhsampurna1482 Awesome! Thank you so much!
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
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?
you can share your excel vba requirement at exceldestination@gmail.com
@@ExcelDestination yes,i will send you later,thx a lot
Thank you for the video. Unfortunately when I do this, the picture produced is very low quality. Can you help me with this
not sure.
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
@@leoazarro3984 thank you! I will try that
@@Dragz672 you're welcome, friend
hello sir when i capture pic the quantity not good please help tell me too how i do?
Thanks man, this work for some forms too ?
welcome
How to save this file trough cell text
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"
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.
Sorry it was my typing mistake as u said solved it ... TQ
Oh.....Great.
Can you send the project file?
How to save pic using cell value as file name? Kindly help me out
Also your website doesn't work, I'd be happy to set one up for free for you as this is a good channel :)
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
please send me email at exceldestination@gmail.com I will provide you the original file. You can modify that and use that.
How to save image name from cell
Please send this code in comment
ok, let me check
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
sure!!!
@@ExcelDestination Waiting Sir
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
Image is too much distorted and no quality