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
Scientific Laboratory Equipment's & Instruments Manufacturer Incinerators play a crucial role in waste management, providing an effective solution for reducing waste volume and managing hazardous materials. This article delves into the details of incinerators, their uses, working principles, and the different types available, focusing on small incinerators and their applications. What is an Incinerator Used For? An incinerator is a device used for burning waste materials at high temperatures until they are reduced to ash, gas, and heat. The primary purpose of incineration is to reduce the volume of waste, which in turn decreases the burden on landfills. Additionally, incineration helps in managing hazardous waste, ensuring that dangerous substances are destroyed and rendered harmless. Key applications of incinerators include: Municipal Waste Management: Reducing the volume of household waste and producing energy from waste. Medical Waste Disposal: Safely destroying infectious