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

ldy

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

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

sailorgg

我取消了这一步中的'    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

太牛了!!

ldy

原帖由 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

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

HHAAMM

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

ldy

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

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

ldy

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

HHAAMM

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

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

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

shangui2821

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