Вот хороший способ сделать это. Выберите «Макро IDE ...», затем откройте «EnvironmentEvents» и добавьте следующее после области «Автоматически сгенерированный код»:
Sub handleColorSettings() Handles SolutionEvents.opened, DocumentEvents.documentopening
Dim myColor As UInt32
myColor = &HC0FFFF
Try
myColor = UInt32.Parse(IO.File.ReadAllText(DTE.Solution.FullName & ".bgcolor.txt"), Globalization.NumberStyles.AllowHexSpecifier)
Catch ex As Exception
End Try
CType(DTE.Properties("FontsAndColors", "TextEditor").Item("FontsAndColorsItems").Object, EnvDTE.FontsAndColorsItems).Item("Plain Text").Background = myColor
End Sub
При каждом открытии проекта или открытии файла внутри проекта система будет искать файл с именем «(fullSolutionName) .bgcolor.txt». Если, например, решением является «myThing.sln», используемый файл будет «myThing.sln.bgcolor.txt». Если такой файл найден и он содержит действительное шестнадцатеричное число, оно будет использоваться в качестве цвета фона. В противном случае будет использоваться цвет по умолчанию (& hC0FFFF выше, но его легко изменить).