06-20-2021
06:50 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-20-2021
06:50 AM
There is also this one I found I don't know where.. :
Dim oDimensions As DrawingDimensions = ActiveSheet.Sheet.DrawingDimensions Dim oCol As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection For Each oDim As DrawingDimension In oDimensions oCol.Add(oDim) Next oDimensions.Arrange(oCol) For Each oDim As DrawingDimension In oCol On Error Resume Next oDim.CenterText Next
Regards,
FINET L.
If this post solved your question, please kindly mark it as "Solution"
If this post helped out in any way to solve your question, please drop a "Like"