PDA

View Full Version : use vba to copy a chart in excel to ms paint



uktous
03-19-2012, 08:21 AM
Hi,

I try to use Excel vba to copy a chart in excel to ms paint.

However, it doesn't work.

Could you please amend my macro?
Using the macro below, I can open MS Paint, but can't copy and paste anything to MS paint.


Sub copytomspaint()

Worksheets(1).ChartObjects(1).Select
Selection.Copy
TheEditor = "c:\WINDOWS\system32\mspaint.exe"
TaskId = Shell(TheEditor, 1)
Application.SendKeys "^{V}", True
Application.SendKeys "^{S}", True


End Sub

Thanks

mancubus
03-19-2012, 10:41 AM
hi.
try


Worksheets("Sheet1").ChartObjects("Chart 1").Chart.Export _
Filename:="C:\my_files\pix\chartpic.bmp", _
FilterName:="BMP"



or

Worksheets(1).ChartObjects(1).Chart.Export _
Filename:="C:\my_files\pix\chartpic.bmp", _
FilterName:="BMP"

Kenneth Hobs
03-19-2012, 11:30 AM
Like mancubus, I don't recommend SendKeys().

Sub CopyChart1ToPaintShop()
Dim bmp As String

bmp = Environ("temp") & "\temp.bmp"
Worksheets("Sheet1").ChartObjects("Chart 1").Chart.Export bmp
Shell "mspaint " & bmp, vbNormalNoFocus
End Sub