下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 调整照片大小

调整照片大小.doc

调整照片大小

李展照
2018-06-28 0人阅读 举报 0 0 暂无简介

简介:本文档为《调整照片大小doc》,可适用于高等教育领域

调整照片大小EXCEL表格A列是产品图片B列是名称能否在B列输入名称(如)的同时把放在E:PIC目录下的相应货号的JPG图片调出来且大小与A列单元格完全相符。模块,复制下面代码至代码框按F即可用vba按下ALTF,菜单:插入Subaddpicture()DimFirstRow,LastRowAsInteger,FileTypeAsStringFirstRow=SheetUsedRangeRowLastRow=FirstRowSheetUsedRangeRowsCountFileType=InputBox("输入你的图片的后缀名","输入图片格式","jpg")Fori=FirstRowToLastRowNumb=Cells(i,)ValueWithActiveSheetPicturesInsert("D:tmp"Numb""FileType)SelectSetTarget=Cells(i,)EndWithWithSelectionTop=TargetTopLeft=TargetLeftWidth=TargetWidthHeight=TargetHeightEndWithNextiEndSubPrivateSubLabelClick()OnErrorGoToErrLabelDimfileOpenAsStringDimcShapeAsShapefileOpen=ApplicationGetOpenFilename("样品图片(*jpg*bmp*gif),*jpg*bmp*gif,所有文件(**),**",,"请选择图片")IffileOpen="False"OrfileOpen=""ThenfileOpen=""ExitSubElseWithSheetRange("A:E")Cellspicleft=Leftwidth*pictop=Topheight*picwidth=width*picHeight=height*EndWithActiveSheetPicturesInsert(fileOpen)SelectDimheightAsSingleDimwidthAsSingleDimrateAsSingleheight=SelectionShapeRangeheightwidth=SelectionShapeRangewidthheight=picHeightheightwidth=picwidthwidthrate=IIf(width>height,height,width)SelectionShapeRangeLeft=picleftSelectionShapeRangeTop=pictopSelectionShapeRangeScaleWidthrate,msoFalse,msoScaleFromTopLeftSelectionShapeRangeScaleHeightrate,msoFalse,msoScaleFromTopLeftEndIfErrLabel:ExitSubEndSub

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/3

调整照片大小

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利