在Excel中当我们有时需要一些特殊形状的窗体，如果是几何形状组合的窗体，那么我们可以使用定制化窗体之特殊形状窗体一：几何形状组合窗体中的方法来实现。但有时我们需要显示一个文字窗口，或者显示一幅镂空图画的窗体，或者任意形状的窗体，那又怎么做呢？
制作思路：
◾你首先需要准备一张图片，在图片上画出你需要显示的图形或文字等，然后将图片上需要透明的部分设置为同一种颜色（在示例中我用的是白色）。之后在窗体初始化时载入此图片，并将窗体的PictureSizeMode属性设置为1fmPictureSizeModeStretch。
◾然后在窗体初始化时用FindWindow取得窗体的句柄，再用GetWindowLong取得窗体的样式位和拓展样式位。用SetWindowLong设置窗体新的样式位和拓展样式位（无标题栏和边框）。以达到去除窗体标题栏和边框的效果。
◾接下来最重要的部分就是使我们不需要的那部分窗体透明。这里我们将用到一个API函数SetLayeredWindowAttributes。我们将函数中的参数crKey设为你需要透明部分的颜色。参数bAlpha设为0~255之间的任意值（这里将忽略此参数）。参数dwFlags设为LWA_COLORKEY，以达到使窗体镂空显示的效果。
附件下载：
点击链接从百度网盘下载
操作如下：
◾在Excel的VBE窗口中插入一个用户窗体，将其命名为EspecialForm。然后再添加一个模块。在窗体和模块中添加后面所列代码。
◾在工作薄中的任意工作表中添加一窗体按钮控件，将指定其设置宏为ShowForm。其供示范之用
具体代码：
"mdArbitrary"模块代码
'---工作表按钮调用---Sub ShowForm()ArbitraryForm.Show 0End Sub
文章内容收集于网络，希望能为您提供帮助。强国说-WPS之家(wps.qiangguoshuo.com)
"ArbitraryForm" 窗体代码
'****************************************'---此模块创建了一个可以是任意形状的窗口---'****************************************Option Explicit'以下声明API函数#If Win64 Then '64位'设置窗体透明度或透明样式Private Declare PtrSafe Function SetLayeredWindowAttributes _Lib "user32" ( _ByVal Hwnd As LongPtr, _ByVal crKey As Long, _ByVal bAlpha As Byte, _ByVal dwFlags As Long) _As LongPtr'取得窗体样式位Private Declare PtrSafe Function GetWindowLong _Lib "user32" _Alias "GetWindowLongPtrA" ( _ByVal Hwnd As LongPtr, _ByVal nIndex As Long) _As LongPtr'查找窗口Private Declare PtrSafe Function FindWindow _Lib "user32" _Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String) _As LongPtr'设置窗体样式位Private Declare PtrSafe Function SetWindowLong _Lib "user32" _Alias "SetWindowLongPtrA" ( _ByVal Hwnd As LongPtr, _ByVal nIndex As Long, _ByVal dwNewLong As LongPtr) _As LongPtr'绘制窗体标题栏Private Declare PtrSafe Function DrawMenuBar _Lib "user32" ( _ByVal Hwnd As LongPtr) _As Long'视情况向和窗体发送消息Private Declare PtrSafe Function SendMessage _Lib "user32" _Alias "SendMessageA" ( _ByVal Hwnd As LongPtr, _ByVal wMsg As Long, _ByVal wParam As LongPtr, _lParam As Any) _As LongPtr'释放鼠标Private Declare PtrSafe Function ReleaseCapture _Lib "user32" () _As Long#Else'设置窗体透明度或透明样式Private Declare Function SetLayeredWindowAttributes _Lib "user32" ( _ByVal hwnd As Long, _ByVal crKey As Long, _ByVal bAlpha As Byte, _ByVal dwFlags 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 FindWindow _Lib "user32" _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 DrawMenuBar _Lib "user32" ( _ByVal hwnd As Long) _As Long'视情况向窗体发送消息Private Declare Function SendMessage _Lib "user32" _Alias "SendMessageA" ( _ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) _As Long'释放鼠标控制Private Declare Function ReleaseCapture _Lib "user32" () _As Long#End If#If Win64 Then '64位Private hWndForm As LongPtrPrivate FIstype As LongPtr#ElsePrivate hWndForm As LongPrivate FIstype As Long#End If'以下定义常数和变量Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20) '拓展窗口样式Private Const LWA_COLORKEY = &H1Private Const GWL_STYLE = (-16) '窗口样式Private Const WS_CAPTION = &HC00000Private Const WS_EX_DLGMODALFRAME = &H1&Private Const WM_SYSCOMMAND = &H112Private Const SC_MOVE_MOUSE = &HF012&'---窗体双击---Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)Unload MeEnd Sub'---窗体初始化---Private Sub UserForm_Initialize()On Error Resume Next'设置窗体背景图片, 这里为了方便我使用的是工作表中图片控件储存的图片，可以用下面第三行的语句载入自己准备好的图片Me.Picture = ThisWorkbook.Worksheets("源图").Image1.Picture'设置窗体背景图片时也可以用以下语句载入图片'Me.Picture = LoadPicture(ThisWorkbook.Path & "\创作.bmp")If Err <> 0 ThenMsgBox "窗体背景图片未找到，请将压缩包内图片和此文档放置在同一目录下", vbCritical, "错误"EndEnd If'设置窗体尺寸模式Me.PictureSizeMode = fmPictureSizeModeStretch'查找窗体句柄hWndForm = FindWindow("ThunderDFrame", Me.Caption)'取得窗体样式FIstype = GetWindowLong(hWndForm, GWL_STYLE)'窗体样式：原样式无标题FIstype = FIstype And Not WS_CAPTION'重设窗体样式SetWindowLong hWndForm, GWL_STYLE, FIstype'取得窗体拓展样式FIstype = GetWindowLong(hWndForm, GWL_EXSTYLE)'窗体拓展样式：无边框，分层FIstype = FIstype And Not WS_EX_DLGMODALFRAME Or WS_EX_LAYERED'重设窗体拓展样式位SetWindowLong hWndForm, GWL_EXSTYLE, FIstype'重绘窗体标题栏DrawMenuBar hWndForm'设置窗体背景白色部分为透明，这里的RGB色设成你希望透明的颜色SetLayeredWindowAttributes hWndForm, RGB(255, 255, 255), 255, LWA_COLORKEYEnd Sub'---鼠标按下---Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _ByVal X As Single, ByVal Y As Single)'释放控制ReleaseCapture'向窗体发送消息SendMessage hWndForm, WM_SYSCOMMAND, SC_MOVE_MOUSE, 0End Sub
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
