Colour Contrast Check

http://www.snook.ca/technical/colour_contrast/colour.html

The Colour Contrast Check Tool allows to specify a foreground and a background colour and determine if they provide enough of a contrast "when viewed by someone having color deficits or when viewed on a black and white screen"[W3C].

The tool will indicate that the colours pass the test if both the colour difference and the brightness difference exceed their threshold. It will indicate that it sort of passes if only one of the two values exceed their threshold. And finally, it'll fail to pass if neither value exceeds its threshold.

You can enter a three character value (eg: 036) and it'll automatically convert it to it's six character version.

Excel Core Knowledge

We put together the Excel Core Knowledge wiki (password to make edits is “excel”) to create a training resource for data analysts using Excel. Together with your input, we’d like to:

1. Develop a short list of the most important Excel skills for data analysis. There are a huge array of Excel tips and tricks available on the Internet; we’d like to cut through this confusion by taking a stand about the things that matter most. (We have an area for “non-core” tips and tricks where we can park all the useful concepts that don’t make the cut.)
2. Gather teaching materials for each of the skills. Feel free to upload instructional files, add your thoughts on important skills, or incorporate links to valuable web sites.

More on Excel in-cell graphing

http://www.juiceanalytics.com/weblog/?p=239

Testing Links and pictures

test

http://dc18.4shared.com/download/4929212/bf1d215/hindsight_journal_20.xls?sId=gToyZLEkDfzUXukK

click here

download

Transparent (See through) userforms in Excel

http://www.automateexcel.com/index.php/2005/01/07/excel_vba_transparent_forms

Simply copy and paste the code from the post to your Form's module, immediately below Option Explicit, and your form is transparent.

You can also set the level of transparency by altering the line "bytOpacity = 192"

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&

Public hWnd As Long

Private Sub UserForm_Initialize()
Dim bytOpacity As Byte
bytOpacity = 192 ' variable keeping opacity setting
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hWnd, 0, bytOpacity, LWA_ALPHA)
End Sub