Sub ShapeHeightAnimation() Dim Total As Double ActiveSheet.Shapes("Rectangle 1").Height = 0 For i = 1 To 100 ActiveSheet.Shapes("Rectangle 1").Height = i 'slow down For iRow = 1 To 8000 Total = Total + Sheet2.Cells(iRow, 1).Value / 1000 Next iRow Next i End Sub
|What code would I use to automate changing the tab (sheet) names in an excel spreadsheet?||17||41|
|VB 6 error 5 in windows 10 but not in XP||7||42|
|Access Excel export not behaving||2||25|
|Simple Excel re-arrange data. (I can work in access too).||8||50|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!