Friends, I'm using the hint, described in the "Excel Guru" script in Creating Interactive Maps in Excel:
Sub ColorirMapa()
Dim Microareas As Range
Dim Celula As String
For Each Microareas In Range (“Microareas”)
Celula = Cells (Microareas.Row, 4)
ActiveSheet.Shapes(Microareas).Fill.ForeColor.RGB = Range(Celula).Interior.Color
Next Regiao
End Sub
What would be the command in Visual Basic for Applications (VBA) to put dotted texture, striped or other type fill effect - instead of colors?
You would need to enter the following Interior properties of your Cell object to have the desired effect:
Range(Celula).Select
With Selection.Interior
.Pattern = xlVertical
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
It would look something like this:
GoldenHint
WeoftenwanttoturnVBAcodeintoformatting,lists,freezecolumnsbutwehavenoideawheretostart.ExcelhasafeaturethatletsyourecordtheactionsyouperformandtransformsintoVBAcodesforyou.
Althoughthegeneratedcodeisnotideal,itcaterstomostcasesandgivesyouanideaofhowtodowhatyouwant.
