Excel VBA script on formatting shapes -
i making interactive map, 2 sheets. first sheet map sheet line shapes, second database.
i add colouring function according line shapes based on values in database.
i've made plan easier undertanding can found here: http://www.speedyshare.com/gwjwd/plan.xlsm
here code i've tried:
if target.address = sheets("data").range("$c$4:$c$9") select case target.value case = 10 sheets("map").shapes(cl.value).line.forecolor.rgb = vbred case = 20 sheets("map").shapes(cl.value).line.forecolor.rgb = vbblue case = 30 sheets("map").shapes(cl.value).line.forecolor.rgb = vbgreen end select end if
Comments
Post a Comment