Excel 기술, 대량 가져오기 내보내기 그림 VBA
1613 단어 Excel
Sub save_pic()
For Each p In ActiveSheet.Shapes
ph = p.Height
pw = p.Width
p.ScaleHeight 1, True
p.ScaleWidth 1, True
pn = p.TopLeftCell.Offset(0, -1).Value
Debug.Print pn, ph, pw, p.Name
p.Name = pn
p.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, p.Width + 5, p.Height + 5).Chart
.Paste
.Export "D:\ex\" & p.Name & ".jpg", "JPG"
.Parent.Delete
End With
p.Width = pw
p.Height = ph
Exit For
Next
End Sub
Sub addpic()
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then Shp.Delete
Next
i = 2
Do While Range("A" & i) <> ""
Range("B" & i).Select
Set mypic = ActiveSheet.Pictures.Insert("D:\www\pendant\" & Range("A" & i) & ".jpg")
With mypic
.ShapeRange.LockAspectRatio = msoFalse
.Top = Range("B" & i).Top + 5
.Left = Range("B" & i).Left + 5
.Height = Range("B" & i).Height - 10
.Width = Range("B" & i).Width - 10
.Placement = xlMoveAndSize
End With
i = i + 1
Loop
Set mypic = Nothing
End Sub
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel Grep toolExcel Grep tool ■히나가타 ■ 시트 구성 ExcelGrep.cls...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.