VBA Shape size based on data in range of cells

[Jacq78]

I currently have static sized shapes, vba as follows:

If Not WorksheetFunction.IsNumber(ActiveWorkbook.Sheets("Configuration").Range("B25").Value) Then
CheckConfigItems = CheckConfigItems & "The Shape Size Value is Missing from the Configuration Sheet (Cell B25)" & vbCr & vbLf
Else
gShapeSize = ActiveWorkbook.Sheets("Configuration").Range("B25")
End If

How can I size the shapes based on a range of text in excel please?

Thank you
Jacq

 

[James006]

Hello,

Could you please clarify your sentence :

size the shapes based on a range of text

...

Is it a matter of width - height ?

or

Is it an issue related to a mathematical correlation ?

 

[Jacq78]

Hello,

Could you please clarify your sentence : ...

Is it a matter of width - height ?

or

Is it an issue related to a mathematical correlation ?

Thanks for replying!

I have a milestone chart with different shapes depicting different types of tasks, launches etc for a 12 month period - each type of task has a correlating shape - currently all shapes are the same size - I'd like to add VBA to increase the size of a task shape if the task is imminent or overdue - my plan was to add eg high, medium, low in the excel file & for the shape to be std size for low, larger for medium & larger again for high - hoping this makes sense & that you can help

 

[James006]

Hello,

You will have to use a macro to handle your shapes and their sizes ...

You can find some inspiration at :

https://www.extendoffice.com/docume...shape-size-based-dependent-on-cell-value.html

Hope this will help