拼图游戏纯粹的EXCEL VBA制作支持2007

ldy · 发表于 2009-11-24 10:32

原帖由 sailorgg 于 2009-11-24 09:17 发表
在excel2007下测试，点击图片时运行错误：
运行时错误 '-2147024809 (80070057)'
指定值超出了范围

你的现象和这位仁兄一样，估计是2007安装的问题。
http://www.exceltip.cn/thread-4826-1-1-379.html
请按照回帖中的方法检验一下。

sailorgg · 发表于 2009-11-24 11:14

我取消了这一步中的' Sheet1.Protect后，发现可以运行正常，只要在Sub moveP(nm As String, Optional F As Boolean)的开头加一句
Sheet1.UnProtect就可以了，学习了
谢谢你的分享。
Sub 错位()
'这一部分代码算法未优化，等有时间重写
Dim a As Shape, b As Shape, r As Range, nm As String, z As Integer

z = x * y - 1
For ii = 1 To Int(z * Rnd + z) + Int(z * Rnd + z)

'If ii Mod (x + y) <> 0 Then
' For i = 1 To z
'       nm = i & "P"
'       moveP nm, True
' Next
'Else
For i = z To 1 Step -1
      nm = i & "P"
      moveP nm, True
Next
' End If
Next

kRg = Empty
Sheet1.ScrollBar1.Enabled = False
Sheet1.ScrollBar2.Enabled = False
' Sheet1.Protect
End Sub

[ 本帖最后由 sailorgg 于 2009-11-24 11:19 编辑 ]

china047 · 发表于 2009-11-24 12:02

太牛了!!

ldy · 发表于 2009-11-24 12:22

原帖由 sailorgg 于 2009-11-24 11:14 发表
我取消了这一步中的' Sheet1.Protect后，发现可以运行正常，只要在Sub moveP(nm As String, Optional F As Boolean)的开头加一句
Sheet1.UnProtect就可以了，学习了
谢谢你的分享。
Sub 错位()
'这一部分代码 ...

可能是版本的问题
保护工作表是为了避免游戏时图片被随意拖动，我的2007下保护后图片不能被选中，但可以接受VBA代码移动图片。
看来你的那个版本在保护后图片不能被选中，也不接受VBA代码移动图片。
下面代码加两行，红色部分代码，可以避免游戏中拖动图片的行为。
Sub movePIC()
Dim nm As String
nm = Application.Caller
Sheet1.Unprotect
moveP nm
Sheet1.Protect
End Sub

HHAAMM · 发表于 2009-11-29 23:47

还没仔细看，但居然没用到API，这是excel的强大，也是刘版的强大

HHAAMM · 发表于 2009-11-29 23:53

还不清楚是个什么道理，先问下刘版
这个引出的问题，图片可以按曲线分割不
要是可以，俺准备做的地图工具，就不用找别的软件来分割图片了

ldy · 发表于 2009-11-30 01:17

纯手工操作，用任意多边形可以曲线分割，但效果不是很好，有比较明显的边线痕迹。

把多边形的边框设为白色后效果好很多。

ldy · 发表于 2009-11-30 01:56

从棋盘图片上胡乱切了一个，看看效果如何？

HHAAMM · 发表于 2009-11-30 12:42

原帖由 ldy 于 2009-11-30 01:17 发表
纯手工操作，用任意多边形可以曲线分割，但效果不是很好，有比较明显的边线痕迹。

把多边形的边框设为白色后效果好很多。

任意多边形，手工怎么操作

shangui2821 · 发表于 2009-12-27 19:03

感叹！太菜，一句也没看懂

		自动登录	找回密码
密码			免费注册

[原创] 拼图游戏 纯粹的EXCEL VBA制作 支持2007

[原创] 拼图游戏纯粹的EXCEL VBA制作支持2007