access2010 CommandButton Properties

コマンドボタンを始めとし各コントロール表示系のプロパティが増えたのであるが、どうも整理がつかないのでツールっぽいものを作ってみたと。

各パラメータ調整後、ボタン押下で、イミディエイトにWith～End Withを出力

基本的には、UseTheme=True で、 Themeの色フォントを使用する

With Me.cmd00
    .UseTheme = True
    .Gradient = 12
    .BackThemeColorIndex = 4
    .ForeThemeColorIndex = 0
    .HoverForeThemeColorIndex = 0
    .BackShade = 100
    .BackTint = 60
    .PressedThemeColorIndex = 4
    .HoverThemeColorIndex = 4
    .HoverTint = 40
    .PressedTint = 100
    .ForeTint = 75
    .HoverForeTint = 75
    .PressedForeThemeColorIndex = 0
    .PressedForeTint = 75
    .BorderStyle = 1
    .BorderThemeColorIndex = 4
    .BorderTint = 60
    .BorderWidth = 0
    .HoverShade = 100
    .PressedShade = 75
    .Shape = 1
    .BorderShade = 100
    .Bevel = 0
    .Glow = 0
    .Shadow = 0
    .SoftEdges = 0
    .ForeShade = 100
    .HoverForeShade = 100
    .PressedForeShade = 100
    .GridlineThemeColorIndex = 1
    .GridlineTint = 100
    .GridlineShade = 65
    .GridlineStyleTop = 0
    .GridlineStyleBottom = 0
    .GridlineStyleLeft = 0
    .GridlineStyleRight = 0
    .GridlineWidthTop = 1
    .GridlineWidthBottom = 1
    .GridlineWidthLeft = 1
    .GridlineWidthRight = 1
    .ThemeFontIndex = 1
End With

順序がいい加減になってしまったことは忘れる。