Thanks Gord for the feedback..It is encouraging..


"Gord Dibben" wrote:

Superb Jacod.

Thanks for following up.

I have saved the macro in my add-in.


Gord

On Wed, 9 Sep 2009 10:12:07 -0700, Jacob Skaria
wrote:

Hi Gord/Rohan

Sorry I misread your query.. You can try out the below macro. If you are new
to macros.. The macro should copy the picture to Range("A1") of the active
sheet itself.

--Set the Security level to low/medium in (Tools|Macro|Security).
--From workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook. Select the cell with comment and picture
--Run macro from Tools|Macro|Run <selected macro()


Sub Macro1()

Dim rngTemp As Range
Set rngTemp = ActiveCell

Application.ScreenUpdating = False
With ActiveCell
.Comment.Visible = True
.Comment.Shape.Select
.Comment.Shape.CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
.Comment.Visible = False
End With
ActiveSheet.Range("A1").PasteSpecial
Application.ScreenUpdating = True

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Gord Dibben" wrote:

Jacob

That's how you get a picture into a Comment.

OP wants to extract the current picture and move it to another location.

I think some VBA is required here.

Don't have time right now to experiment.

Can you look some more at this?


Gord Dibben MS Excel MVP

On Wed, 9 Sep 2009 05:26:05 -0700, Jacob Skaria
wrote:

--Right clickEdit comment Click on the border (so that the cursor is not in
edit mode)
--Right clickFormat comment'Colors and Lines' tabColor 'dropdown'Fill
Effects'Picture' tabselect Picture

If this post helps click Yes
---------------
Jacob Skaria


"Rohan" wrote:

Hi

I am having one excel file with Comment pictures, now i want to take those
pictures out and past some other location

how can i do this

Rohan