clearing pictures copied from websites

[Boe]

Hello,

I posed this question a couple of years ago and someone helped by providing
a macro which I unfortunately lost. I often create spreadsheets with prices
I copy from pricewatch.com. I want to keep the product image but I want to
get rid of the buy now button. I can't delete that row or column - the
image remains.

Thanks

 

[Dave Peterson]

Try rightclicking on that button and hitting the delete key.

 

[Boe]

Nope - can't highlight, select, or do anything to get that button.

 

[Guest]

I think this will work for you:

Tools>Customize>Toolbars tab>Check: Control Toolbox
Click the Design Mode icon on that toolbar
Then, just click on the offending button and press [Delete]
When done, turn off design mode

Does that help?

***********
Regards,
Ron

XL2002, WinXP-Pro

 

[Dave Peterson]

Try showing the Control Toolbox toolbar (View|toolbars)
then click the design mode icon
then rightclick on the button and hit delete
then toggle the design mode button to off.

 

[Boe]

Thank you!!

Try showing the Control Toolbox toolbar (View|toolbars)
then click the design mode icon
then rightclick on the button and hit delete
then toggle the design mode button to off.

 

[Don Guillett]

Assuming that the product picture is picture 1 (determine by selecting and
looking in name box, then this should do it.

Sub ShapesCut()
For Each S In ActiveSheet.Shapes
If S.Name <> "Picture 1" Then S.Cut
Next
End Sub

 

[Boe]

All set - thanks!

I think this will work for you:

Tools>Customize>Toolbars tab>Check: Control Toolbox
Click the Design Mode icon on that toolbar
Then, just click on the offending button and press [Delete]
When done, turn off design mode

Does that help?

***********
Regards,
Ron

XL2002, WinXP-Pro

Hello,

I posed this question a couple of years ago and someone helped by
providing
a macro which I unfortunately lost. I often create spreadsheets with
prices
I copy from pricewatch.com. I want to keep the product image but I want
to
get rid of the buy now button. I can't delete that row or column - the
image remains.

Thanks

 

[Boe]

All set - thanks!

Assuming that the product picture is picture 1 (determine by selecting and
looking in name box, then this should do it.

Sub ShapesCut()
For Each S In ActiveSheet.Shapes
If S.Name <> "Picture 1" Then S.Cut
Next
End Sub