change triangle size by cell inputs

i want to change the size of a triangle as I changed the values in cell.i want its position(coordinates) remains the same.corner of rectangle or any cell.

sheets attached for reference

Or
Put this code in the sheet module

(open attached file and then amend the values - size changes automatically)

Please Login or Register  to view this content.

Easy to modify for more shapes

@riz4u
Mathematically possible I am sure, but tricky!

- when you select a shape, even if it is a triangle, it sits inside a rectangle
- when you add a shape its position is determined by the co-ordinates of the top left corner of the rectangle
- when you add an isosceles triangle, the top left corner is above the left corner of the triangle, and opposite the top of the triangle
- a rectangle has 4 corners, 2 of which will always marry up with 2 corners of an isosceles triangle - but which 2?
- you have rotated all the triangles
- which corner of the triangle should have a fixed co-ordinate?

Ignoring excel for 1 minute, can you provide a mathematical formula to determine the co-ordinates of the each corner of the rectangle based on the co-ordinates and size of the triangle?

Please continue your questions on this thread. I have closed your other new thread regarding this question

You will not fix your problem without fairly complex maths.
The problem is there because the shapes have been rotated.
Unfortunately, when Excel rotates a shape, Excel retains the original "Left" and "Top" values, and rotates the shape around a "fixed point"
When a shape is resized, it still retains those same "Top" & "left" values, but of course everything else has changed which is why the shape moves - it is still referring to those original values.

To tell Excel where to put a shape after we have resized it we need to calculate where to move it relative to those original values.
This link may help you understand the calculations required.

The only way that it might be possible is by attaching the shape to a cell and using the co-ordinates of the cells themselves - but even that is not as easy as it sounds because (as you have already discovered) the shapes will still move when re-sized! I will investigate this in a few days and update the thread after that.

Another possibility would be to create an image (outside of excel) and save 4 versions (0, 90, 180, 270 degree rotations). Then there would be zero rotation within excel, only a resize. (note - it is not possible create a new "Shape" for Excel).

I do not understand what you want.
How many shapes should appear?
And where should they appear?
Note - the rotation referencing problem does not go away just because you are starting from A1

Please amend your worksheet to show what the sheet should look like AFTER you amend the value in cell "A1"
thanks

Dear as you changes the value from 12 to 16 ,triangle shape changes,i think you observed that.i insert 4 triangle and called them from a1. as you know my square have corner.when i add 4 more trangle and try to call them from a1 ,other all disapear.please help me to correct the code.how i call more than one diagram in code.

If ActiveSheet.Range("A1").Value = 16 Then
ActiveSheet.Shapes("Right Triangle 4,"Right Triangle 9").Visible = True ,
(i want to add more than 4 triangle in code,i used "and " "," "&" all gives error that all.hope you understand.
please observe sheet 1. i want to apear four of same size in four corner.just remove above error and problem will be solved.bold step not working.

i want when i right 12 in a1 all four corner triangle apears of same size as i insert 8 triangle in two corner.

Perhaps it is this
I have grouped your IFs into pairs
Also added a routine to hide all shapes

Please Login or Register  to view this content.

@riz4u looks like that is what you wanted.
Please mark thread as solved (thread tools at top of thread)
thanks