Export pictures from excel file into jpg using VBA

by

If i remember correctly, you need to use the “Shapes” property of your sheet.

Each Shape object has a TopLeftCell and BottomRightCell attributes that tell you the position of the image.

Here’s a piece of code i used a while ago, roughly adapted to your needs. I don’t remember the specifics about all those ChartObjects and whatnot, but here it is:

For Each oShape In ActiveSheet.Shapes
    strImageName = ActiveSheet.Cells(oShape.TopLeftCell.Row, 1).Value
    oShape.Select
    'Picture format initialization
    Selection.ShapeRange.PictureFormat.Contrast = 0.5: Selection.ShapeRange.PictureFormat.Brightness = 0.5: Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic: Selection.ShapeRange.PictureFormat.TransparentBackground = msoFalse: Selection.ShapeRange.Fill.Visible = msoFalse: Selection.ShapeRange.Line.Visible = msoFalse: Selection.ShapeRange.Rotation = 0#: Selection.ShapeRange.PictureFormat.CropLeft = 0#: Selection.ShapeRange.PictureFormat.CropRight = 0#: Selection.ShapeRange.PictureFormat.CropTop = 0#: Selection.ShapeRange.PictureFormat.CropBottom = 0#: Selection.ShapeRange.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft: Selection.ShapeRange.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
    '/Picture format initialization
    Application.Selection.CopyPicture
    Set oDia = ActiveSheet.ChartObjects.Add(0, 0, oShape.Width, oShape.Height)
    Set oChartArea = oDia.Chart
    oDia.Activate
    With oChartArea
        .ChartArea.Select
        .Paste
        .Export ("H:\Webshop_Zpider\Strukturbildene\" & strImageName & ".jpg")
    End With
    oDia.Delete 'oChartArea.Delete
Next

More Related Contents:

  1. Using VBA code, how to export Excel worksheets as image in Excel 2003?
  2. How to insert a picture into Excel at a specified cell position with VBA
  3. Excel VBA to Export Selected Sheets to PDF
  4. Macro to export MS Word tables to Excel sheets
  5. GET pictures from a url and then rename the picture
  6. Rearranging Excel Cell based on Value [closed]
  7. How do I get the old value of a changed cell in Excel VBA?
  8. How to set recurring schedule for xlsm file using Windows Task Scheduler
  9. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  10. Iterating through populated rows
  11. Loop through each row of a range in Excel
  12. How to create a range from two ranges in VBA?
  13. Multiply Entire Range By Value?
  14. Conditional formatting using 3 conditions in Macro/VBA
  15. VBA Excel – IFERROR & VLOOKUP error
  16. Finding a workbook in one of multiple Excel instances
  17. Is it OK to HTTP redirect images?
  18. How to convert an Image to UIImage?
  19. Function Overloading and UDF in Excel VBA
  20. Handle JSON Object in XMLHttp response in Excel VBA Code
  21. How to apply Gabor wavelets to an image?
  22. Excel VBA Quickest way to sort an array of numbers in descending order?
  23. How do I get a list of unique values from a range in Excel VBA?
  24. How to get selected value in multicolumn listbox
  25. Query my excel worksheet with VBA
  26. Excel, How to split cells by comma delimiter into new cells
  27. VBA: Modify chart data range
  28. VBA Excel simple Error Handling
  29. How to do a “Save As” in vba code, saving my current Excel workbook with datestamp?
  30. How to save semi-colon delimited csv file using VBA?

Leave a Comment