Oct 1, 2003 #1 baltog Programmer Joined Dec 19, 2002 Messages 22 Location US Hi All, I just wanna ask how can i remove the images/pictures in my worksheet. the ff code doest not work. sheet1.range("A1:F100".clear it removes only the texts. thanks in advance
Hi All, I just wanna ask how can i remove the images/pictures in my worksheet. the ff code doest not work. sheet1.range("A1:F100".clear it removes only the texts. thanks in advance
Oct 1, 2003 #2 RoyVidar Instructor Joined Jun 16, 2000 Messages 6,606 Location NO Hi! You either need to know the name of the picture/image, then use activesheet.shape("my picture".select selection.delete or if there are more, and you wan't to delete em'all. dim sh as shape for each sh in activesheet.shapes sh.select selection.delete next sh HTH Roy-Vidar Upvote 0 Downvote
Hi! You either need to know the name of the picture/image, then use activesheet.shape("my picture".select selection.delete or if there are more, and you wan't to delete em'all. dim sh as shape for each sh in activesheet.shapes sh.select selection.delete next sh HTH Roy-Vidar
Oct 1, 2003 2 #3 Bowers74 MIS Joined Nov 20, 2002 Messages 1,085 Location US Just a tip: If you only want to remove pictures and not ActiveX Objects for example use: Code: Sub DeletePictures() Dim pic As Shape For Each pic In ActiveSheet.Shapes If pic.Type = 13 Then 'msoPicture pic.Delete End If Next pic End Sub I hope this helps! Peace! Mike Never say Never!!! Nothing is impossible!!! Upvote 0 Downvote
Just a tip: If you only want to remove pictures and not ActiveX Objects for example use: Code: Sub DeletePictures() Dim pic As Shape For Each pic In ActiveSheet.Shapes If pic.Type = 13 Then 'msoPicture pic.Delete End If Next pic End Sub I hope this helps! Peace! Mike Never say Never!!! Nothing is impossible!!!
Oct 1, 2003 Thread starter #4 baltog Programmer Joined Dec 19, 2002 Messages 22 Location US it seems Mike's tip is much more applicable. thanks a lot guys! Upvote 0 Downvote