Hi,
I wonder if you can help please. I have the macro below to hide shapes dependent on related cell contents. It works fine but I'm hoping somebody can share a more efficient way to do this as I'll need to apply to over 200 shapes to complete the workbook! As you can tell I am a beginner!
Any help would be much appreciated.
thank you.
Iain
and so on to DM34, EM34 up to HM34, then I need to repeat on lower rows.....
I wonder if you can help please. I have the macro below to hide shapes dependent on related cell contents. It works fine but I'm hoping somebody can share a more efficient way to do this as I'll need to apply to over 200 shapes to complete the workbook! As you can tell I am a beginner!
Any help would be much appreciated.
thank you.
Iain
VBA Code:
If Range("Am34") = 1 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 195")).Select
Selection.ShapeRange.ThreeD.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoFalse
End If
If Range("Am34") = 2 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 195")).Select
Selection.ShapeRange.ThreeD.Visible = msoTrue
Selection.ShapeRange.Fill.Visible = msoTrue
End If
If Range("bm34") = 1 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 196")).Select
Selection.ShapeRange.ThreeD.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoFalse
End If
If Range("bm34") = 2 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 196")).Select
Selection.ShapeRange.ThreeD.Visible = msoTrue
Selection.ShapeRange.Fill.Visible = msoTrue
End If
If Range("cm34") = 1 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 162")).Select
Selection.ShapeRange.ThreeD.Visible = msoFalse
Selection.ShapeRange.Fill.Visible = msoFalse
End If
If Range("cm34") = 2 Then
ActiveSheet.Shapes.Range(Array("Right Arrow 162")).Select
Selection.ShapeRange.ThreeD.Visible = msoTrue
Selection.ShapeRange.Fill.Visible = msoTrue
End If
and so on to DM34, EM34 up to HM34, then I need to repeat on lower rows.....
Last edited by a moderator: