how to remove image with VB?Solved/Closed

Question

Hello,

I have everything working but removing the image before saving.  The code is not working and not even sure where to place it.   (using excel 2003)  below is what my VBA looks like:

Sub NextTicket()

    Range("S1").Value = Range("S1").Value + 1
    Range("C7:G9").ClearContents
    Range("J8:M8").ClearContents
     
End Sub

Sub SaveTicketWithNewName()
    Dim NewFN As Variant
    ' Copy Ticket to new workbook
    ActiveSheet.Copy
    NewFN = "C:\Users\Janit\Desktop\" & Range("S1").Value & ".xls"
    ActiveWorkbook.SaveAs NewFN
    ActiveWorkbook.Close
    NextTicket
    
End Sub

Sub DeleteButton()
    For Each sh In ActiveSheet.Shapes:
        If sh.TopLeftCell.Address = "$U$10" Then sh.Delete
    Next sh
End Sub

I do know the name of the object should there be another code to use  instead?

Any help would be greatly appreciated.

Configuration: Windows 7 / Chrome 36.0.1985.143

Soaping_Gal · Answer

solved!

vcoolio · Answer

Hello Janit,

This looks familiar!

Solved by Soaping_Gal (same IP)? Could you please post your resolution so that all can see. That's what these type of forums are all about. Help one, help all.

If you are still having issues with the above code, please post back as we will still be able to help.

Kind regards.
vcoolio
(Moderator).

Soaping_Gal · Answer

This macro works with Excel 2003, will save, remove macro object, close saved project and increment invoice number.   Thank you so much for all the help you provided when I was stuck making my first macro :D


Sub NextTicket()

    Range("S1").Value = Range("S1").Value + 1
    Range("C7:G9").ClearContents
    Range("J8:M8").ClearContents
    Range("J9:M9").ClearContents

    
End Sub


Sub SaveTicketWithNewName()
    Dim NewFN As Variant
    ' Copy Ticket to new workbook
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
    ActiveSheet.Shapes.Range(Array("savemacro")).Delete
    NewFN = "C:\Users\Janit\Desktop\" & Range("S1").Value & ".xls"
    ActiveWorkbook.SaveAs NewFN
    ActiveWorkbook.Close
    NextTicket
    
    
End Sub

vcoolio · Answer

Hello Soaping_Gal/Janit,

Well done!

Glad I could help.

Cheerio,
vcoolio.

How to remove image with VB?

4 responses

Similar discussions

Subscribe To Our Newsletter!