［分享］使用VB合并两张图片，感谢Moneky

tao60

请见附件的图，将1和2合并为1+2的样子，主要是想实现将黑线换成红线的功能。
图片1是一般的图片，
图片2是透明的GIF图片，线框全是红色，是用PS做的。
图片1+2是合并的效果图，是用PS做的。

实在没想到好办法。
在网上找了一下，有一个柯达控件，但却下载不到这个控件，也无法试验。
不知道还有没有别的办法可以实现。

附件的压缩包中包含了上述三张图片

最终解决方案请见11楼
点击进入第11楼


[ 本帖最后由 tao60 于 2010-3-26 11:46 编辑 ]

lb_bn

这个问题比较有意思，占位等高人指点。

Moneky

VB 做没有问题，vba太复杂了。可惜网吧没有vb环境

Moneky

专门下载了个VB,看看效果，如果exe不能运行的话，可能是系统缺少comdlg32.ocx，附件中已经包含，手动注册即可

lb_bn

谢谢老师分享。

Moneky

源程序也拿上来，楼主可以根据自己的需要更改，我这个是在我的网易泡泡游戏——大家来找茬 外挂的基础上改的。比较乱

command2的click代码应该这样

Private Sub Command2_Click()
    On Error GoTo er
    dlg.CancelError = True
    dlg.Filter = "*.bmp|*.bmp"
    dlg.DialogTitle = "请选择要处理的图片文件"
    dlg.ShowOpen
    FN = dlg.FileName               '主要是这一句的位置，不然自动保存会出错
    pic1.Picture = LoadPicture(dlg.FileName)
    pic1.Refresh
    Exit Sub
er:
End Sub

[ 本帖最后由 Moneky 于 2010-3-18 18:57 编辑 ]

Simon_Zhu

原帖由 tao60 于 2010-3-18 17:33 发表
请见附件的图，将1和2合并为1+2的样子，主要是想实现将黑线换成红线的功能。
图片1是一般的图片，
图片2是透明的GIF图片，线框全是红色，是用PS做的。
图片1+2是合并的效果图，是用PS做的。

实在没想到好办法。 ...

我觉得用VBA蛮简单的啊，不知道我有没有理解错误，见附件。
Sub My_test()
ActiveSheet.Shapes("Pic1").Top = 10
ActiveSheet.Shapes("Pic2").Top = 10
ActiveSheet.Shapes("Pic1").Left = 10
ActiveSheet.Shapes("Pic2").Left = 10
ActiveSheet.Shapes.Range(Array("Pic1", "Pic2")).Select
Selection.ShapeRange.Group.Select
End Sub
供参考

[ 本帖最后由 Simon_Zhu 于 2010-3-18 19:06 编辑 ]

tao60

非常感谢！效果非常好，要是能在VBA里实现就好了，因为我的图片都是直接放在Excel里的。

另外存出来的图片好大，这么小的图片也弄了一个M有多，太大了，不知道有没有办法可以弄小一点。

能否解释一下你的做法，我看了代码有点看不懂，我看处理的关键程序应该是这一段，你对像素怎么控制的，就变成红色啦？

1. 
   
2.     For y = 1 To HeightSrc
   
3.        For x = 1 To WidthSrc
   
4.             If PixelsSrc2(1, x, y) < 200 Then
   
5. 
   
6.                 PixelsSrc(1, x, y) = 0
   
7.                 PixelsSrc(2, x, y) = 0
   
8.                 PixelsSrc(3, x, y) = 255
   
9. 
   
10.             End If
    
11.        Next
    
12.     Next
    
13.     SetDIBitsToDevice pic1.hdc, 0, 0, WidthSrc, HeightSrc, 0, 0, 0, HeightSrc, PixelsSrc(1, 1, 1), Bitmap_Info, DIB_RGB_COLORS
    
14.     pic1.Refresh
    

复制代码

[ 本帖最后由 tao60 于 2010-3-19 09:22 编辑 ]

tao60

非常感谢！
我开始想要的效果就是你这个效果，但是处理的结果总是有一点点黑边，美中不足。
看到4楼Moneky的帖子，效果非常好。

Moneky

原帖由 tao60 于 2010-3-19 09:17 发表
非常感谢！效果非常好，要是能在VBA里实现就好了，因为我的图片都是直接放在Excel里的。

另外存出来的图片好大，这么小的图片也弄了一个M有多，太大了，不知道有没有办法可以弄小一点。

能否解释一下你的做法， ...

图片太大是因为保存的是bmp格式，要缩小尺寸可以在网上找个jpg控件，将图片保存成jpg格式即可，实在不想写程序，可以把图片按bmp保存好后，下载个批量格式转换工具转换成jpg也可以。

你对像素怎么控制的，就变成红色啦？  这个是用DIB处理图形的方法，可以看看网上的资料，相信你会明白。这种处理图形的方式优点是速度快，如果用vb内置的Point，Pset函数的话，那个时间无法忍受。