No.2ベストアンサー
- 回答日時:
ハンドル取得に FindWinodow を使えば、Excel2000 以前でも問題ないかな...
API の都合で Windows2000、XP 限定です。
・SetLayeredWindowAttributes API パラメータ
hWnd 対象ウインドウのハンドル
crKey 透明色
bAlpha 透明度0-255
dwFlags LWA_ALPHA でウインドウ全体、LWA_COLORKEY で指定色の透過
簡単なデモです。
# Excel であまりトリッキーなことをするのはオススメしません
' // Declarations
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Long, _
ByVal dwFlags As Long) As Long
' // Constants
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const XLS_CLASSNAME = "XLMAIN"
Sub WindowStyleDemo()
Dim hWnd As Long
Dim lStyle As Long
Dim i As Long
hWnd = FindWindow(XLS_CLASSNAME, vbNullString)
If hWnd = 0 Then Exit Sub
Call SetWindowLong(hWnd, GWL_EXSTYLE, WS_EX_LAYERED)
' // ウインドウ全体のアルファを操作します
MsgBox "[OK]で Fade out します"
For i = 255 To 0 Step -5
Call SetLayeredWindowAttributes(hWnd, 0&, i, LWA_ALPHA)
Next i
MsgBox "[OK]でAlpha:=200 の半透明ウインドウを描写"
Call SetLayeredWindowAttributes(hWnd, 0&, 200&, LWA_ALPHA)
MsgBox "[OK]で元に戻します"
Call SetLayeredWindowAttributes(hWnd, 0&, 255&, LWA_ALPHA)
' // ウインドウ内の指定色を透過します
MsgBox "[OK]でセルの色(白)を透過します"
Call SetLayeredWindowAttributes(hWnd, vbWhite, 0&, LWA_COLORKEY)
MsgBox "[OK]で元に戻します"
Call SetLayeredWindowAttributes(hWnd, 0&, 255&, LWA_ALPHA)
End Sub
こんばんは!
非常に詳しくコードを書いていただいちゃいまして、何やら非常にうれしくなってしまいます。動作もメッセージボックスできめ細かに表示してもらっちゃって、コメントも大充実で、本当にありがとうございます。凄く分かりやすかったです!
No.1
- 回答日時:
こんばんは。
以下のような感じかな?
>マイクロソフトヘルプ以外のページであれば、非常に助かります。
Microsoft オンラインヘルプをお使いなのですか?もし、お使いなら、もうそれ以上のものはないと思います。私は、Excelでは、API関数は決まったものしか使わないようにしています。
Win32 APIは、.Net Framework に移行していきますので、ネットの世界では過去のものだと思います。それと、Win32 APIは、基本的には、C言語の世界です。
一番、資料のあった出版社のガリバーの、Win32 APIのホームページを、昨年閉めたので、もう、残っている場所は少ないと思います。
例えば、Win32APIのデータベース
http://www.winapi-database.com/category.html
'---------------------------------
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal _
hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) _
As Long
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private Const GWL_EXSTYLE As Long = -20
Sub getTransparent()
'全体を透明にする(Excel 2002以上, WinXP)
Dim dwStyle As Long
dwStyle = GetWindowLong(Application.hwnd, GWL_EXSTYLE)
dwStyle = dwStyle Or WS_EX_LAYERED
Call SetWindowLong(Application.hwnd, GWL_EXSTYLE, dwStyle)
'150の部分が透明度
Call SetLayeredWindowAttributes(Application.hwnd, 0, 150, LWA_ALPHA)
End Sub
Sub returnOpaque()
'透明を戻す
Dim dwStyle As Long
dwStyle = GetWindowLong(Application.hwnd, GWL_EXSTYLE)
dwStyle = dwStyle Or WS_EX_LAYERED
Call SetWindowLong(Application.hwnd, GWL_EXSTYLE, dwStyle)
'透明化を戻す-255
Call SetLayeredWindowAttributes(Application.hwnd, 0, 255, LWA_ALPHA)
End Sub
こんばんは!回答ありがとうございます!
昨日に引き続きステキなアドバイスをありがとうございます。
大変参考になります。APIってちょっと調べてみたら万能じゃん!と思ったのですが、そうでもないのですね。勉強しなおします!
さらにコードのご提示までしていただきまして、本当にありがとうございます。見事に出来ちゃいました。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ウインドウを毎回同じ位置、大...
-
Outlookでこのような表示がされ...
-
Excel操作 ウィンドウで出した...
-
エクセル 枠の中に小さい枠
-
excelのファイルを閉じると空の...
-
win7は窓位置記憶出来ない?
-
ウィンドウを最大化・・・
-
非アクティブウィンドウをアク...
-
左下のスタートが消えました。
-
後ろにあるウィンドウが前に出...
-
ウインドウズ98で、二窓して...
-
Excelのワークシートが全部表示...
-
ウィンドウズ7 ウィンドウサ...
-
パソコン画面左下に自動的に表...
-
パソコンを起動させたら文字の...
-
Access VBA でForm位置を参照す...
-
デジタル時計の時刻合わせの方...
-
マイページはどこを開くの
-
エクセルのシート上に別のシー...
-
Excelでワードアートや図を常に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ウインドウを毎回同じ位置、大...
-
Outlookでこのような表示がされ...
-
Excel操作 ウィンドウで出した...
-
MT4サブウインドウ1と2を入れ替...
-
EXCELについて枠の固定と分割の...
-
MacのVLCでウインドウの幅の変更
-
スライドショーを全画面でなく...
-
Excelのワークシートが全部表示...
-
excelのファイルを閉じると空の...
-
エクセル 枠の中に小さい枠
-
Access VBA でForm位置を参照す...
-
表示するウィンドウのサイズを...
-
Excel操作 横列を縮めたあとに...
-
非アクティブウィンドウをアク...
-
スカイプの最前面設定の変更
-
Windows10、フォルダウインドウ...
-
ワード2003で二つの文書を並べ...
-
ウィンドウが、前回閉じた位置...
-
ネット上に掲載のPDFファイルの...
-
ポップアップ画面の大きさについて
おすすめ情報