若要使所描的图形与原有的图形一致,就要使用和原图相同的绘图比例。一般我们都是按照1:1的绘图比例进行CAD制图的。假定你的原图中是按照1:1的绘图比例绘制的,你只要将描绘的区域图形,按照标有较大尺寸的那个线条的绘图单位值,放大到和尺寸的数值相同即可。
打开word插入——图片——来自文件
选定所有需要的插入后
用回车键在各图片间建立空行
新建一个空白的word文档。
工具——》宏——》vb编辑器——》打开this document ——》把下面代码粘入编辑窗口——》保存
打开这个word文档——》工具——》宏——》执行 下面的不用我说了,最后记得通配符批量替换照片就可以一行显示多张了。
Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例调整相片尺寸
WidthNum = mypic.Width
c = 10 '在此处修改相片宽,单位厘米
mypic.Width = c * 28.35
mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph'在文末添加一空段
Else
Selection.MoveDown
End If
Selection.Text = Basename(fn)'函数取得文件名
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph'在文末添加一空段
Else
Selection.MoveDown
End If
Next fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath)'取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
文具的种类有哪些?
所谓文具,小到订书钉、笔、本、文件夹,大到打印机、复印机、碎纸机、考勤钟、电子白板等等都是办公文具用品。根据现在零售店面经营状况表明,办公用品行业所经营的不再是单纯的办公文具,其范围在不断扩大,除了传统的办公文具、学生用品、教学用品、美术用品、财务用品大家所熟悉的以外,还有OA设备办公耗材、办公家具、IT产品、劳动保护用品、电脑周边用品、清洁用品;
学生文具是文具用品一个最重要的分支,主要使用群体是学生。
学生文具品类包括:笔袋、笔盒、铅笔、自动铅笔、水彩笔、白板笔、圆珠笔、中性笔、油画棒、油性笔、蜡笔、钢笔、书包、橡皮擦、削笔机、笔削、液体胶水、固体胶、尺类、圆规、美工刀、剪刀、书套、修正带、文件夹、本册、文件袋、画板、笔芯等等。
请点击输入图片描述
办公文具,顾名思义,就是办公用的文具,与学生文具有着很大的差别。办公文具主要的定位人群是企业,事业单位,工厂,政府机关等,办公文具一个特点是追求实用耐用,不求流行花样。这也是与学生文具一个不同之处。
办公文具的分类也很广泛,如三针一钉,会计用品,文管用品,单据凭证等。
详细分类
文具事务用品
1、文件档案管理类:有孔文件夹(两孔、三孔文件夹)、无孔文件夹(单强力夹、双强力夹等)、报告夹、板夹、分类文件夹、挂劳夹、电脑夹、票据夹、档案盒、资料册、档案袋、文件套、名片盒/册、CD包/册、公事包、拉链袋、卡片袋、文件柜、资料架、文件篮、书立、相册、图纸夹。
2、桌面用品:订书机、起钉器、打孔器、剪刀、美工刀、切纸刀、票夹、钉针系列、削笔刀、胶棒、胶水、胶带、胶带座、计算器、仪尺、笔筒、笔袋、台历架。
3、办公本薄:无线装订本、螺旋本、皮面本、活页本、拍纸本、便利贴、便签纸/盒、会议记录本。
4、书写修正用品:中性笔(签字笔)、圆珠笔、铅笔、台笔、白板笔、荧光笔、钢笔、记号笔、水彩笔、POP笔、橡皮、修正液、修正带、墨水笔芯、软笔、蜡笔、毛笔、炭笔。
5、财务用品:账本/账册、无碳复写票据、凭证/单据、复写纸、用友耗材、票据装订机、财务计算器、印台/印油、支票夹、专用印章、印章箱、手提金库、号码机。
6、辅助用品:报刊架、杂志架、白板系列、证件卡、包装用品、台座系列、证书系列、钥匙管理。
7、电脑周边用品:光盘、U盘、键盘、鼠标、移动硬盘、录音笔、插线板、电池、耳麦、光驱、读卡器、存储卡。
8、电子电器用品:排插。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)