Replies

Thank you Hans

This is much better, the macro is now :

ActiveChart.Parent.ShapeRange.ScaleWidth 0.74, msoFalse
ActiveChart.Parent.ShapeRange.ScaleHeight 0.49, msoFalse

This works fine for the chart width, but the bottom of the chart is about 0.2 of a row height above the gridline at the bottom of row 20.

This may be significant, if I alter the column width the chart width increases with it, but if I alter the height of row 20 the chart does not move with it.

Thank you Hans.

Now VBA is saying “Method or data member not found” for the ScaleWidth

(the recorded macro was:
ActiveSheet.Shapes(“Chart 1”).ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(“Chart 1”).ScaleHeight 0.49, msoFalse, msoScaleFromTopLeft

which has now become:

ActiveChart.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
ActiveChart.ScaleHeight 0.49, msoFalse, msoScaleFromTopLeft

If I change this to:

ActiveChart.Shapes.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
ActiveChart.Shapes.ScaleHeight 0.49, msoFalse, msoScaleFromTopLeft

VBA says “Object does not support this property or method”

Oops I replied to my own post.

Thank you Hans, it works like a charm.

Thank you Hans, it works like a charm.

No.

If it makes the code easier I would be happy for the macro to put the footer in all charts in the active sheet in turn.

Hans

The code is in Module 1 of the Workbook, and it is a Sub.

Equally weird

Since renaming and moving excel.xlb, then closing and reopening XL, then assigning ‘InvertRows’ to the menu item/button, then closing and reopening XL again, ‘InvertRows’ now is still attached to the menu item/button. But again no new xlb file!

Hans

I have tried both renaming and moving the excel.xlb file, and no new xlb file is created on shutting down XL.

Despite this XL then reopens with all my custom menus and buttons present. Weird

Yes Hans I do have W.E. set to show hidden files.

It rather looks as if when XL is closed it is not saving my .xlb file.

I am trying to incorporate clipart into a letterhead and return address labels

Thanks – but I cannot find either of these .exe files. Where can I get them?

Thank you Hans, that workks fine.

Data for sorting must be contiguous, XL will tell you this if your select more than one range and then try and sort. Thus if you want to sort only 3 columns you will have to move them alongside one another as I suggested.

To find out if conditional formatting is causing trouble, I suggest you make a values only copy of your data, remove any coditional formatting, and try sorting that.

Data for sorting must be contiguous, XL will tell you this if your select more than one range and then try and sort. Thus if you want to sort only 3 columns you will have to move them alongside one another as I suggested.

To find out if conditional formatting is causing trouble, I suggest you make a values only copy of your data, remove any coditional formatting, and try sorting that.

Do you want to sort Cols A, C, & M as a group and leave the others unsorted? If so I suggest you select Col C and hold down Shift whilst dragging it left to between Cols A & B, this will put it in new Col B and move existing Col B right. Repeat for Col M and drag it to Col C position. You will now have the columns you want to sort in Cols A, B, & C. Select the data in these columns and you should be able to sort it. XL will say you have data next to the selected data, do you want to Expand the selection or Continue with the current selection, choose the latter.