Do you write and read emails or documents, enter and analyze data on worksheets, attend online meetings, or search for info on the Internet? Maybe you edit photos or use a project or account management app? Do you need to see the tiniest details on your screen, identify shades of colors, or just make working on your computer more comfortable on your eyes? To find the color and contrast settings that work for you, first think about what you do on your computer most of the time and which apps you use during the day. How do I find the best color and contrast settings for me? Option Explicit Private mOutline As Shape Private Const SelectedShapeName As String = "Selection Box" Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim SelectedShape As Shape Dim SelectedArea As Range On Error Resume Next For Each SelectedShape In Sh.Shapes If SelectedShape.Name = SelectedShapeName Then SelectedShape.Delete End If Next SelectedShape For Each SelectedArea In Selection.Areas Set mOutline = (msoShapeRectangle, SelectedArea.Left, SelectedArea.Top, SelectedArea.Width, SelectedArea.Height) .Fill.Visible = msoFalse. = RGB(255, 0, 0) .Line.Transparency = 0 mOutline.Is it difficult to identify text in a document or details on a worksheet? Does your screen look so bright that it hurts your eyes and everything on it gets lost in the white background? In this article, you'll find tips and tricks on how to experiment with the color options on your computer and in the Microsoft 365 apps to make it easier and more comfortable for you to see the things on your screen. You'll also find instructions on how to change to a high contrast theme to reduce the white background color on the screen. The below code adjustment will handle non-contiguous range selections, but ignores errors for entire rows/columns (which I think should be anyway). Your code doesn't accommodate either non-contiguous selections, nor too large selections without failing (i.e.
0 kommentar(er)
