Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
In putting together some code to delete these I used - This is the short version to my question:
Sub DeleteShapes() Dim shp As Shape, i As integer i = 1 For Each shp In ActiveSheet.Shapes ActiveSheet.Shapes("Picture [b]i[/b]").Delete i = i + 1 Next i = 0 End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!