制作桌面壁纸的万年历

甘露 · 发表于 2019-6-9 19:44

谢谢分享.
谢谢!

samma111 · 发表于 2019-9-4 12:54

学良老师：
Sub 设置壁纸()
Home.Shapes("Group 342").CopyPicture xlScreen, xlBitmap
Set Home.Image2.Picture = PastePicture(xlBitmap)
Dim pName As String
Set fs = CreateObject("Scripting.FileSystemObject")
pName = fs.GetSpecialFolder(0) & "\MyFlower.bmp"
SavePicture Home.Image2.Picture, pName
... ...
End Sub

最后一句SavePicture Home.Image2.Picture, pName出现错误，提示“运行时错误‘75’：路径/文件访问错误”请问如何修改或者将文件和图片放在什么位置？VNBA小白提问，谢谢！！！

supernatural_20 · 发表于 2019-12-26 16:52

不知道要怎么解决，用不了，见附件，求指教

东方秘密 · 发表于 2019-12-27 10:56

拿走了感谢

xiaochun37 · 发表于 2020-3-23 11:33

谢谢楼主分享

自由自在的费 · 发表于 2020-4-4 18:41

挺不错的。谢谢分享

xuge3366 · 发表于 2022-7-27 14:36

做成了，很漂亮

xuge3366 · 发表于 2022-7-27 14:39

以后就跟学良大师混了

xuge3366 · 发表于 2022-7-27 15:31

我做的桌面日历字体有点模糊，怎么能清晰？

幼儿园小班七七 · 发表于 2022-8-9 16:31

感谢楼主分享好东西

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

[分享] 制作桌面壁纸的万年历