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
Blood Bank Instruments Blood banks play a crucial role in healthcare by collecting, testing, processing, and storing blood and its components. To ensure efficiency and safety, various instruments and equipment are used in blood banks. Here’s a list of some key blood bank instruments and their uses: 1. Blood Collection Monitors These devices ensure a safe and efficient blood collection process . They monitor the volume of blood collected and the collection time, ensuring that the donation is stopped at the right moment to avoid over-collection. 2. Blood Mixers Blood mixers are used during blood collection to ensure that the blood anticoagulant solution is thoroughly mixed with the donated blood, preventing clotting. 3. Blood Bag Tube Sealers These devices are used to seal the tubing of blood bags after collection . They use radiofrequency or heat to create a strong, leak-proof seal, ensuring the sterility of the collected blood. 4. Ce...
Comments
Post a Comment
अपनी राय और सवाल यहाँ शेयर करें! कृपया अपने कमेंट्स में फालतू के स्पैम लिंक्स न डालें। आपके कीमती सुझावों का हमेशा स्वागत है।