Hide/Unhide an Autoshape or Picture in Excel [Solved/Closed]
madambath -
May 10, 2010 at 07:23 AM - Latest reply: jerangkung
- Nov 7, 2013 at 04:08 AM
- Hide/Unhide an Autoshape or Picture in Excel
- Excel - A Macro to insert pictures in a worksheet » How-To - Excel
- How To Insert Pictures in Excel Using a Macro » How-To - Excel
- Hide unhide column with clickbox and password (Solved) » Forum - Word
- Insert picture in excel macro which takes the file name refrence [Solved] (Solved) » Forum - Excel
- Macro - pictures to excel acc to name (Solved) » Forum - Excel
6 replies
Best answer
Use the properties
.visible = true and .visible = false
ActiveSheet.Pictures("Picture 2").Visible = True
.visible = true and .visible = false
ActiveSheet.Pictures("Picture 2").Visible = True
has helped 1915 users this month
Thank you, this requires to execute the Code to do the job. What I need is when the file is opened the Sheet should not show some of the Autoshapes or Pictures in the sheet and keeps some other hidden.
When I run my other Marcos these Autoshapes or Pictures will be Unhide or deleted.
In this scenario if I used the Code to hide Autoshapes or Pictures in the WorksheetOpen event and executed all my other macros in the files and saved the resulting file as a "New File" and when I go back to open the "New File" some errors will be shown due to the WorksheetOpen event Code.
I hope you may understood (blame my poor language) my problem.
Thanks and Regards,
PramodKumar
When I run my other Marcos these Autoshapes or Pictures will be Unhide or deleted.
In this scenario if I used the Code to hide Autoshapes or Pictures in the WorksheetOpen event and executed all my other macros in the files and saved the resulting file as a "New File" and when I go back to open the "New File" some errors will be shown due to the WorksheetOpen event Code.
I hope you may understood (blame my poor language) my problem.
Thanks and Regards,
PramodKumar
Why not enclose the part of making it visible, hidden or delete sandwiched bewteeen
On Error Resume Next
On Error goto 0
On Error Resume Next
On Error goto 0
Once again you did it for me! Wonderful tip, Thanks a lot.
Now my Code looks as below:
Private Sub Workbook_Open()
On Error Resume Next
ActiveSheet.Shapes("Button08").Visible = False
ActiveSheet.Shapes("Button09").Visible = False
ActiveSheet.Shapes("Button10").Visible = False
ActiveSheet.Shapes("Button 55").Visible = False
ActiveSheet.Shapes("Button 56").Visible = False
ActiveSheet.Shapes("Button 57").Visible = False
ActiveSheet.Shapes("Button 64").Visible = False
ActiveSheet.Shapes("Button 65").Visible = False
ActiveSheet.Shapes("Button 66").Visible = False
ActiveSheet.Shapes("Button 67").Visible = False
ActiveSheet.Shapes("Button 74").Visible = False
On Error GoTo 0
End Sub
With Regards,
PramodKumar
Now my Code looks as below:
Private Sub Workbook_Open()
On Error Resume Next
ActiveSheet.Shapes("Button08").Visible = False
ActiveSheet.Shapes("Button09").Visible = False
ActiveSheet.Shapes("Button10").Visible = False
ActiveSheet.Shapes("Button 55").Visible = False
ActiveSheet.Shapes("Button 56").Visible = False
ActiveSheet.Shapes("Button 57").Visible = False
ActiveSheet.Shapes("Button 64").Visible = False
ActiveSheet.Shapes("Button 65").Visible = False
ActiveSheet.Shapes("Button 66").Visible = False
ActiveSheet.Shapes("Button 67").Visible = False
ActiveSheet.Shapes("Button 74").Visible = False
On Error GoTo 0
End Sub
With Regards,
PramodKumar
Superb. And thanks for posting your solution. It just might help some one else too.