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.  Ø MANP
Read more

Two Stroke vs Four Stroke Engine

By -
Image
Two Stroke vs Four Stroke Enigne – Advantages and Disadvantages of Two Stroke over Four Stroke Cycle Engines. In a two stroke engine, the working cycle is completed in two strokes of the piston or one revolution of the crankshaft. In a four stroke engine, the working cycle is completed in four strokes of the piston or two revolutions of the crankshaft. The following are the advantages and disadvantages of two stroke over four stroke cycle engines: Advantages: 1.   A two stroke cycle engine gives twice the number of power strokes than the four stroke cycle engine at the same engine speed. Theoretically, a two stroke cycle engine should develop twice the power as that of a four stroke cycle engine. 2.    For the same power developed, a two stroke cycle engine is lighter, less bulky and occupies less floor area. 3.    A two stroke cycle engine has a lighter flywheel and gives higher mechanical efficiency than a four stroke cycle engine. Disadvantages: 1.   The thermal
Read more