Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
Dim xStrPath As String
Dim xStrImgName As String
Dim xImg As Shape
Dim xObjChar As ChartObject
Dim xFD As FileDialog
Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
If xFD.Show = -1 Then
xStrPath = xFD.SelectedItems.Item(1) & "\"
Else
Exit Sub
End If
On Error Resume Next
For Each xImg In ActiveSheet.Shapes
If xImg.TopLeftCell.Column = 6 Then
xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
If xStrImgName <> "" Then
xImg.Select
Selection.Copy
Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
With xObjChar
.Border.LineStyle = xlLineStyleNone
.Activate
ActiveChart.Paste
.Chart.Export xStrPath & xStrImgName & ".png"
.Delete
End With
End If
End If
Next
End Sub
##############################################################
ms access image path
=[CurrentProject].[Path] & "\images\" & [Item No].[png]
=CurrentProject.Path & Item No
?CurrentProject.Path & "\" & CurrentProject.Name in vba
F:\Rai Singh Rana\Site data\products images with id no\1.png
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