效果图制作过程如下：
1、打开一个空白Excel表，ale+F11打开VBA编辑器。如图1：
图1：打开VBA编辑器2、插入窗体。在工程窗口，“VBAProject（工作簿1）”上右键——插入——用户窗体，如下图2，插入用户窗体后效果如下图3。图2：插入用户窗体
图3：插入用户窗体后3、设置用户窗体属性。在属性窗口，“Caption”项即窗口左上角显示的文字，默认为“UserForm1”，这里可以根据个人需要修改，比如改成“女神，我爱你！”。
“Height”项即用户窗体的高度，根据个人需要修改，比如600。
“Width”项即用户窗体的宽度，根据个人需要修改，比如800。
这样，用户窗体就变大了，如下图4：图4：设置用户窗体属性4、插入图像控件，单击选择工具箱内的“图像”控件，在用户窗体任意位置单击即新建了一个图像控件，如下图5：
图5：插入图像控件5、设置图像控件属性：
在“Picture”项插入背景图片，点击右面3个点的小按钮，弹出的对话框选择提前准备的图片。
“Height”项设置为600，与用户窗体高度相同；“left”项设置为0，与用户窗体左侧边框对齐；“Top”项设置为0，与用户窗体顶端边框对齐；“Width”项设置为800，与用户窗体宽度相同。设置完后效果如下图6：图6：设置图像控件属性6、插入两个“标签”控件，Label1和Label2，如下图7：图7：插入标签控件7、设置标签控件属性。
标签Label1：在属性窗口，“Caption”项默认为“Label1”，修改为女神的名字，此处修改为“女神名字”，其他项可以设置字体，标签尺寸等等，根据需要自己设置。
标签Label2用来写你给女神的话，设置同Label1。设置完效果如下图8
图8：设置标签控件属性8、插入两个按钮。设置属性“Caption”，分别设置为“接受”、“不接受”。如下图9：图9：插入按钮9、在工程窗口，双击“ThisWorkbook”，在右侧窗口输入以下代码，如图10：
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub图10：编辑代码10、在工程窗口，“UserForm1”右键选择“查看代码”，然后复制粘贴下面代码，如图11：
Private Sub CommandButton1_Click()
Image2.Visible = True
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheet1.Range("C1") = Sheet1.Range("C1") + 1
If Sheet1.Range("C1") Mod 10 = 0 Then
MsgBox prompt:="你已经尝试拒绝我" & Sheet1.Range("C1") & "次了，真的这么绝情，点一下喜欢我试试呗", Title:="我很受伤"
End If
a = Int(Rnd() * 10)
i = a Mod 2
If i = 1 Then
j = Int(Rnd() * 200)
Else
j = Int(Rnd() * 200) * -1
End If
CommandButton2.Move Left:=CommandButton2.Left - j, Top:=CommandButton2.Left - j
If CommandButton2.Left < 0 Or CommandButton2.Left > 700 Then
CommandButton2.Left = 400
End If
If CommandButton2.Top < 0 Or CommandButton2.Top > 300 Then
CommandButton2.Top = 200
End If
End Sub
图11：编辑代码11、最后在插入一个图像控件，就是女神点“接受”按钮后显示的图片。方法同上面第4步，但这次属性“Visible”要设置为False。如图12：图12：插入图像控件12、最后保存。文件保存类型选择“Excel启用宏的工作簿”，保存完毕，关闭。
然后就可以发给女神了，一个只能点击“接受”的表白小游戏。打开后效果图说明：以上小游戏、代码借鉴于网络。