曼城足球论坛技术论坛

找回密码
免费注册

QQ登录

只需一步,快速开首

EH搜索
EH技术汇-专业的职场技术手段充电站 妙哉!函数段子手趣味讲函数 足球任职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office学问技巧免费学 制造主旨竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝免费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实践指南
审查: 78 | 回复: 2
打印 上一主题 下一主题

[求助] 足球 愚弄宏拔出URL链接的图片和图片按名字生存到文件夹功效增强

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
宣告于 2020-9-16 17:08 | 只看该作者 | 只看大图 回帖嘉奖 | 倒序欣赏 | 阅读模式
在excelhome上获得不少的助手。
相近有几个问题想向各位请教。望民众不吝赐教。

  • 拔出URL链接的图片。

  • 问题1:URL含纰谬地址的话就出错
  • 想改成按选择区域来获取 同时判断URL是不是含有图片,被拔出的位置是不是已经存在图片如果存在就跳过。


  • 导出图片

  • 导出图片的宏在Sheet内可用。但是在 模块中 不可用,应该怎么改?
  • 导出的图片较量小,而且带黑色边框。是否可能间接copy原图(也就是重设大小后的图片)


  1. Sub Export_Picture() '图片批量导出世存偏重命名某一列数据为图片文件名
  2. Application.ScreenUpdating = False
  3. On Error Resume Next
  4. MkDir ThisWorkbook.Path & "\images"
  5. For Each Pic In Shapes
  6. If Pic.Type = msoPicture Then
  7. RN = Pic.TopLeftCell.Offset(0, -1).Value '重命名图片
  8. Pic.Copy
  9. With ActiveSheet.ChartObjects.Add(0, 0, Pic.Width, Pic.Height).Chart '树立图片
  10. .Paste
  11. .Export ThisWorkbook.Path & "\images" & RN & ".jpg"
  12. .Parent.Delete
  13. End With
  14. End If
  15. Next
  16. 'MsgBox "Exporting the picture is complete!" '导出图片完成!
  17. Application.ScreenUpdating = True
  18. Shell "explorer.exe " & ThisWorkbook.Path & "\images", vbNormalFocus '掀开文件夹!
  19. End Sub

  20. Sub addPicture_Url()
  21. Dim z As Shape, e$, i%
  22. Set PicUrlCol = Application.InputBox("Select URL Column", Title:="Images Name Column", Type:=8)
  23. PicCol = PicUrlCol.Column '取图片URL所在列列列标
  24. Set TPnameCol = Application.InputBox("请选择图片需要放置的列,只能选择单列单元格!", Title:="图片所在列", Type:=8)
  25. TPCol = TPnameCol.Column '取图片所在列列列标
  26. For i = 1 To Cells(Rows.Count, PicCol).End(3).Row
  27. e = Cells(i, PicCol)
  28. If e <> "" Then
  29. Set z = ActiveSheet.Shapes.addpicture(e, True, True, Cells(i, TPCol).Left, Cells(i, TPCol).Top, Cells(i, TPCol).Width, Cells(i, TPCol).Height) '调整图片大小和单元格一样
  30. End If
  31. Next
  32. End Sub

复制代码


Picture.zip

75.96 KB, 下载次数: 1

相近请下载

TA的精华主题

TA的得分主题

2
楼主 | 宣告于 2020-9-16 17:25 | 只看该作者
自身占个沙发,意为:神气、欢乐,或纠缠之意。足球社区。在内蒙古以及晋南方言中,很多时候用作脏词。通孬。足球社区。在普通话满意为戏弄、烦扰,真没有歹意。嬲(niǎo):方言用字,然后就改不了了,声明一下 用户民是多年前在百度上查这个字的时候顺手取的。

TA的精华主题

TA的得分主题

3
宣告于 2020-9-17 10:59 | 只看该作者
写在sheet一样用啊,这种玩法分为两大步:足球社区互动。①先把地址变成超链接②采用insert间接拔出,换用insert间接拔出,黑边框预计你拔出了shapepicture。
您需要登录后才可能回帖 登录 | 免费注册

本版积分规则

关切官方微信,每天学会一个新技术手段

手机版|关于我们|相干我们|曼城足球论坛

GMT+8, 2020-9-19 20:12, Processed in 0.0 second(s),足球赛免费直播。 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属宣告者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表