Excel VBA Code Picture fit automatically to Cell

By -

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

Comments

  1. Anonymous8 June 2023 at 20:01

    What about multiple photos aligned together??

    ReplyDelete
  2. Anonymous8 June 2023 at 20:02

    Please the VB code for multiple people images aligned together in one click

    ReplyDelete
  3. Anonymous18 June 2023 at 18:37

    Please provide the VB code for multiple images aligned together in one click. mzubairrafiq4@gmail.com

    ReplyDelete

Post a Comment

Popular posts from this blog

Physical properties of Liquid

By -
Image
(1) Additive Property When a property of a substance is equal to the sum of the Corresponding properties of the constituent atoms, it is called an additive property . For example, molecular mass of a compound is given by the sum of the atomic masses of the constituent atoms. (2) Constitutive Property A property that depends on the arrangement of atoms and bond structure, in a molecule, is referred to as a constitutive property . Surface tension and viscosity and optical activity are examples of constitutive property. (3) Additive and Constitutive Property An additive property which also depends on the intermolecular structure is called additive and constitutive property. Surface tension and viscosity are such properties. (4) COLLIGATIVE PROPERTIES Colligative Properties (Greek colligatus = Collected together). A colligative property may be defined as one which depends on the number of particles in solution and not in any way on the size or chemical nature of...
Read more

Characteristics and Limitations of computer:

By -
Image
Ø SPEED: Computer is very fast calculating device It can execute basic operations like addition, multiplication, subtraction and division at a few microseconds. Ø ACCURACY: The accuracy of computer does not go down when they are used continuously for hours together. It always gives accurate results. Ø STORAGE: Computer has a very large storage capacity. It has an in-built memory where it can store a large amount of data. We can also store data in secondary storage devices like Floppy disk, Hard disk etc. Ø VERSATILITY: It means computer can perform different types of job efficiently. Computer can work with different types of data and information such as visuals, text, graphics & video etc. at same time. Ø PAPER WORK REDUCED: The computer reduces the paper work of any organization. The required data which was earlier stored in files, drawers and cabinets is now stored in the memory of computer. So Organization can reduce the paper work.  Ø ...
Read more

1.4 Bent Axis Piston Pump

By -
Image
    Simple Definition:-               Hydraulic piston pumps can handle large flows at high hydraulic system pressures. Typical applications are mobile and construction equipment, marine auxiliary power, metal forming and stamping,machine tools and oil field equipment.      In these pumps, the pistons accurately slide back and forth inside the  cylinders that are part of the hydraulic pump. The sealing properties of the pistons are excellent.     Detail:-        In bent axis design, the displacement volume is dependent on the swivel angle: the pistons move within the cylinder bores when the shaft rotates. In swash plate design, the rotating pistons are supported by a swash plate; the angle of the swash plate determines the piston stroke. Bent axis pumps, axial piston pumps and motors using the bent axis principle, fixed or adjustable displacement, exists in two different b...
Read more