Fit Picture Code

➯   અહીં એક્સલ સીટના સેલમાં પિક્ચર ફીટ કરવા માટેનો તેમજ pdf તૈયાર કરવા માટેનો કોડ મુકેલ છે જેની મદદથી તમે એક્સલ સીટના જેટલા એરિયાની પીડીએફ તૈયાર કરવી હોય તે કરી શકશો.   

Step 1: Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

Step 2: Click Insert > Module, and paste the following macro in the Module Window.

VBA: Resize a selected picture to fit a cell.

Public Sub FitPic() On Error GoTo NOT_SHAPE Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single With Selection PicWtoHRatio = .Width / .Height End With With Selection.TopLeftCell CellWtoHRatio = .Width / .RowHeight End With Select Case PicWtoHRatio / CellWtoHRatio Case Is > 1 With Selection .Width = .TopLeftCell.Width .Height = .Width / PicWtoHRatio End With Case Else With Selection .Height = .TopLeftCell.RowHeight .Width = .Height * PicWtoHRatio End With End Select With Selection .Top = .TopLeftCell.Top .Left = .TopLeftCell.Left End With Exit Sub NOT_SHAPE: MsgBox "Select a picture before running this macro." End Sub

Step 3: Press the F5 key to run this macro.

Step 4: Repeat the steps above to resize other pictures to fit single cell.

➩Now all inserted pictures are resized and fits into cells. 

➯Save As PDF code : 

Sub savepdf()

Sheet4.Range("b2:m69").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\admin\Desktop\Teacher PDF\" & Sheet4.Range("o2").Value, openafterpublish:=True

End Sub

➮ Pdf તૈયાર કરવા માટે નીચે આપેલ સ્ફિન પ્રમાણે અનુસરણ કરવું.

Follow @jpsutariya1