秋季招生进行中……

2020年春季招生班级已招满，之后来报名的同学归入9月份入学的秋招班级

春招工作启动

office VBA批量裁剪
Sub 裁剪()
percentToCropB =25
percentToCropL = 8
percentToCropR = 5
percentToCropT =48
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
cropPointsB = origHeight * percentToCropB / 100
cropPointsL = origWidth * percentToCropL / 100
cropPointsR = origHeight * percentToCropR / 100
cropPointsT = origWidth * percentToCropT / 100
.CropBottom = cropPointsB
.CropLeft = cropPointsL
.CropRight = cropPointsR
.CropTop = cropPointsT
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
cropPointsB = origHeight * percentToCropB / 100
cropPointsL = origWidth * percentToCropL / 100
cropPointsR = origHeight * percentToCropR / 100
cropPointsT = origWidth * percentToCropT / 100
.CropBottom = cropPointsB
.CropLeft = cropPointsL
.CropRight = cropPointsR
.CropTop = cropPointsT
End With
Next n
End Sub

Sub 等比例缩放图片 '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight =ActiveDocument.InlineShapes(n).Height
picwidth =ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height= picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width= picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth =ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height= picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width= picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub

'图片设置固定在小
Sub 图片格式统一()
Myheigth = 6.26 '设置高度，单位为厘米
Mywidth = 5 '设置宽度，单位为厘米
On Error Resume Next
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoFlase '取消锁定纵横比
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
With iShape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
End With
Next
For Each Shape In ActiveDocument.Shapes
Shape.LockAspectRatio = msoFlase
Shape.Height = 28.345 * Myheigth
Shape.Width = 28.345 * Mywidth
With Shape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
End With
Next
End Sub
'图片添加边框
Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdColorAutomatic
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub

23届有新生群吗

同学们，努力学习吧。