Myanmar Excel Trainer

Certificate or Name Card Create Jpg
✅✅✅✅✅✅✅✅✅✅✅

VBA code
======

Sub ExportVR()
On Error Resume Next
Dim ThisRng As Range
Dim strfile As String
Dim myfile As Variant

If Selection.Count = 1 Then
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)
Else
Set ThisRng = Selection
End If
Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long
Dim case1, case2 As Range
Set oWs = Sheet7
Set oRng = ThisRng
Set case1 = Sheet2.Range("k4")
Set case2 = Sheet2.Range("l4")

oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.Width
lHeight = oRng.Height

Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

oChrtO.Activate
With oChrtO.Chart
.Paste
.Export Filename:=case1 & "(" & case2 & ")" & "." & "jpg", Filtername:="JPG"
End With

oChrtO.Cut

End Sub