Please Note: This article is written for users of the following Microsoft Excel versions: 2007 and 2010. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Copying Pictures with a Macro.
Lowell developed a macro to copy select cells' data to a specific location on another worksheet. Some of the source cells contain pictures, and he would like those pictures copied, as well. Lowell wonders how he can get the macro to recognize if a picture is at the source cell and then copy the pictures to the new worksheet along with the data.
If you use the Copy method with the Selection object, you can copy everything—including pictures—from your source to your target. Consider the following short macro:
Please Note:
This article is written for users of the following Microsoft Excel versions: 2007 and 2010. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: 
Sub CopyPict()
Sheets("Sheet1").Select
Range("B3:F7").Select
Selection.Copy
Sheets("Sheet3").Select
Range("H8").Select
ActiveSheet.Paste
End Sub
Assuming that some of the cells within the source range (B3:B7 on Sheet1) contain pictures, then the Paste method will paste those into the target (cell H8 on Sheet3). This technique is, in fact, the same as using copy and paste manually with the information.
If you are identifying and moving information in a different manner (perhaps using an intermediary variable instead of copying to the Clipboard), then it is very possible that the pictures aren't copying. If you need to do some processing of the data before pasting it into the target, you could use the Paste method, as shown above, and then process the data and place it back into the target cell. That would allow the pictures to remain undisturbed at the target.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (11333) applies to Microsoft Excel 2007 and 2010. You can find a version of this tip for the older menu interface of Excel here: Copying Pictures with a Macro.
Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling today!
Macros depend on the use of variables to do their work. This tip examines how variables are declared in a macro, using ...
Discover MoreWhen working with very large workbooks, it is possible for Excel to behave erratically. This tip looks at ways you can ...
Discover MoreYou can easily use formulas to pull apart text stored in a cell. For instance, if you need to pull individual characters ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2016-05-10 10:51:34
Gary Lundblad
Can the copy range be dynamic? That is, a cell in your worksheet can specify the range to copy. What I'm looking to do is to have one of a number of pictures copied and pasted into a certain position based on the outcome of a formula. For example, if the answer is 1, then picture number one would be copied and pasted to the spot. If the answer is 2, then picture number 2 would be copied and pasted, etc...
Thank you!
Gary
2016-04-12 22:36:51
murray
Question:
My macros create lots of charts (and picture copies) on different sheets.
Is there a way to construct a table or similar to keep track of what Excel thinks what charts are there and where they are?
2013-04-26 07:45:53
Bryan
There is no need to select!! This is VBA programming 101!
You can replace all 6 lines of your code with 1 line:
Sheets("Sheet1").Range("B3:F7").Copy Sheets("Sheet3").Range("H8")
If you want to have the destination range displayed when the code is finished then you need to add 2 more lines:
Sheets("Sheet3").Select
Range("H8").Select
2012-02-18 12:06:06
Lowell
Thanks for the tip regarding copying pictures with macros.
2012-02-18 05:32:01
kavita
I really needed this tip. Thanks.
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments