Excel vba 窗体编辑中，有时候需要做全屏幕效果，这是个很好的想法，我们用几行简单代码即可实现 。  
全屏效果  
全屏代码  
Private Declare Function GetSystemMetrics Lib \"user32\" (ByVal nIndex As Long) As Long  
Const SM_CXSCREEN As Long = 0  
Const SM_CYSCREEN As Long = 1  

  
文章插图  
With Me  
.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75  
.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75  
.Left = 0  
.Top = 0  
End With  
  
文章插图  
With Me.Label1  
.Top = 100  
.Left = 0  
.Height = .Parent.Height  
.Width = .Parent.Width  
.Font.Size = 200  
.Font.Name = \"微软雅黑\"  
.Caption = \"全屏效果\"  
.ForeColor = RGB(201, 122, 21)  
.TextAlign = fmTextAlignCenter  
.BackStyle = fmBackStyleTransparents  
End With  
With Me.Label2  
.Top = 102  
.Left = 15  
.Height = .Parent.Height  
.Width = .Parent.Width  
.Font.Size = 200  
.Font.Name = \"微软雅黑\"  
.Caption = \"全屏效果\"  
.ForeColor = RGB(211, 152, 211)  
.TextAlign = fmTextAlignCenter  
.BackStyle = fmBackStyleTransparent  
End With  
With Me.Label3  
.Top = 0  
.Left = 0  
.Height = 50  
.Width = 100  
.Font.Size = 20  
.Font.Name = \"微软雅黑\"  
.Caption = \"头条.江觅\"  
.ForeColor = RGB(211, 212, 211)  
.TextAlign = fmTextAlignCenter  
.BackStyle = fmBackStyleTransparent  
End With保存按F5运行，全屏效果还是不错的 。马上收藏，备用 。  
【全屏代码是什么，全屏代码如何实现？】 好了，这篇文章的内容蜀川号就和大家分享到这里！  

• 《向风而行》|《向风而行》李雨珩结局是什么 李雨珩喜欢的是谁
• 排毒养颜胶囊的功效与作用是什么 女人排毒养颜最好的药
• 喝白酒上头是什么原因 喝完酒头疼吃什么药最有效
• 这种口是心非的男人都是什么心理 男人迷恋你的身体说明
• 小孩出汗多是什么原因 小孩血糖高是什么原因引起的
• 经常多梦是什么原因 多梦是阴虚还是阳虚
• 糖尿病2型是什么意思 1型糖尿病和2型糖尿病
• 女生|女生回应感染新冠后长出胡子是怎么了 女性长胡子是什么原因
• 40－50女人最好的运动是什么 50岁慢跑好还是走路好
• 酒后口苦是怎么回事 喝酒隔夜吐是什么原因