Meg lehet-e azt csinálni, hogy excelben kiszámítok egy értéket, pl.10, vagy 20. és utána egy kép, egy adott méretű rácspontjának a színe az érték függvényében változik? Hogyan?

Próbálj meg bekapcsolt "Makró rögzítése üzemmódban" egy képet készíteni! Utána pedig nyisd meg a makrót szerkesztésre, és a színező utasításba betenni egy cella értékét.

Az alábbi kísérletben húztam egy egyenes és kiszíneztem narancssárgára. A megváltoztatandó sor az alábbi.

====================================================

Selection.ShapeRange.Line.ForeColor.SchemeColor = 53

====================================================

Az 53-as helyére kellene becsempészni egy cella értékét.

========================================================

Sub Rögzítés1()

'

' Rögzítés1 Makro

' Rögzítette: Dr. Nagy Ferenc , dátum: 2011.11.05.

'

'

ActiveSheet.Shapes.AddLine(135#, 99.75, 213.75, 164.25).Select

Range("C9").Select

ActiveSheet.Shapes("Line 1").Select

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid

Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 53

Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone

Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone

End Sub