MSCBSC 移动通信论坛
搜索
登录注册
网络优化工程师招聘专栏 4G/LTE通信工程师最新职位列表 通信实习生/应届生招聘职位

  • 阅读:2457
  • 回复:1
勘测报告插入图片不用再手动调整大小,一键搞定
YANG111

鎵嬫満鍙风爜宸查獙璇�


 发短消息    关注Ta 

积分 883
帖子 176
威望 22866 个
礼品券 5 个
专家指数 3
注册 2013-10-13
回答问题数 0
回答被采纳数 0
回答采纳率 0%
 
发表于 2018-11-25 13:06:51  只看楼主 

Sub 插入图片()

    On Error Resume Next

    Dim s As Object

    Dim filefilter1, filennames As String

    filefilter1 = ("所有图片文件 (*.jpg;*.bmp;*.png;*.gif),*.jpg;*.bmp;*.png;*.gif")

    filennames = Application.GetOpenFilename(filefilter1, , "请选一个图片文件", , MultiSelect:=False)

    ActiveSheet.Shapes.AddPicture(filennames, False, True, ActiveCell.Left, ActiveCell.Top, _

        Selection.Width, Selection.Height).OLEFormat.Object.ShapeRange.LockAspectRatio = msoTrue

End Sub


扫码关注5G通信官方公众号,免费领取以下5G精品资料
  • 1、回复“YD5GAI”免费领取《中国移动:5G网络AI应用典型场景技术解决方案白皮书
  • 2、回复“5G6G”免费领取《5G_6G毫米波测试技术白皮书-2022_03-21
  • 3、回复“YD6G”免费领取《中国移动:6G至简无线接入网白皮书
  • 4、回复“LTBPS”免费领取《《中国联通5G终端白皮书》
  • 5、回复“ZGDX”免费领取《中国电信5G NTN技术白皮书
  • 6、回复“TXSB”免费领取《通信设备安装工程施工工艺图解
  • 7、回复“YDSL”免费领取《中国移动算力并网白皮书
  • 8、回复“5GX3”免费领取《 R16 23501-g60 5G的系统架构1
  • 对本帖内容的看法? 我要点评

     
    yi98130

    鎵嬫満鍙风爜宸查獙璇�


     发短消息    关注Ta 

    纪念勋章·八周年  
    积分 2733
    帖子 209
    威望 10968 个
    礼品券 5 个
    专家指数 -1180
    注册 2006-10-11
    回答问题数 0
    回答被采纳数 0
    回答采纳率 0%
     
    发表于 2018-12-26 09:55:55 
    技术问题,回答得专家指数,快速升级

    先留存,待会来研究

    对本帖内容的看法? 我要点评

     

    快速回复主题    
    标题
    内容
    鐎涙ぞ缍�
    鐎涙褰�
    鐎涙鏆熺紒鐔活吀
     上传资料请点左侧【添加附件】

    当前时区 GMT+8, 现在时间是 2025-07-13 08:52:24
    渝ICP备11001752号  Copyright @ 2006-2016 mscbsc.com  本站统一服务邮箱:mscbsc@163.com

    Processed in 2.445413 second(s), 17 queries , Gzip enabled
    TOP
    清除 Cookies - 联系我们 - 移动通信网 - 移动通信论坛 - 通信招聘网 - Archiver