cancel
Showing results for
Did you mean:
Frequent Visitor

## How to merge small images (png) into a combine images (png)

As topic, I extract images (png) from a PDF file.

then i need to merge some of them in 2 different images,

1 ACCEPTED SOLUTION

Accepted Solutions
Multi Super User

Use VBA or vbscript...Excel VBA macro would be better

- Paste the first image to a blank Excel sheet.

• Based on the height of the image calculate its range. For example, for a height of 100, it occupies range A1 to A50. Likewise calculate its column based on the width. Eg column would be H.

- Then paste the 2nd image after A50 ie; A51

• Calculate its range too. Lets assume your new range with both the images is upto A100 and columns based on width is H100.
• Your total new range including both the images is A1 to H100.

- Now you just need to convert this range into a picture. Use Excel VBAs CopyPicture function of any range in your case A1 to H100.

Below is the VBA function to do that.

``````Sub Export()

Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

Set oWs = ActiveSheet
Set oRng = oWs.Range("A1:H100")

oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.Width
lHeight = oRng.Height

Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

oChrtO.Activate
With oChrtO.Chart
.Paste
.Export Filename:="C:\Test\outputsample.jpg", Filtername:="JPG"
End With

oChrtO.Delete

End Sub
``````

Change the path and the Range will be dynamic based on above logic explained.

I have checked it and its working fine. Converts a given range to an image.

Note, this code is only to convert a range of Excel into a picture. For the rest of the code you can search and get it from the internet.

3 REPLIES 3
Super User

Try automating this process:

https://products.aspose.app/words/merger/png

----
If my post has answered your question, please thumbs up and mark this post as a solution.

I also offer paid consulting services at www.peakdigitran.com/appointments and you can find me on LinkedIn at https://www.linkedin.com/in/michael-annis-80903/,
Frequent Visitor

Can merge PNGs action done by script/code? this is a good way and it works.

However, my PAD machine is network restricted control by group policy, it does not allow me to access external website and upload files....

Multi Super User

Use VBA or vbscript...Excel VBA macro would be better

- Paste the first image to a blank Excel sheet.

• Based on the height of the image calculate its range. For example, for a height of 100, it occupies range A1 to A50. Likewise calculate its column based on the width. Eg column would be H.

- Then paste the 2nd image after A50 ie; A51

• Calculate its range too. Lets assume your new range with both the images is upto A100 and columns based on width is H100.
• Your total new range including both the images is A1 to H100.

- Now you just need to convert this range into a picture. Use Excel VBAs CopyPicture function of any range in your case A1 to H100.

Below is the VBA function to do that.

``````Sub Export()

Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

Set oWs = ActiveSheet
Set oRng = oWs.Range("A1:H100")

oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.Width
lHeight = oRng.Height

Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

oChrtO.Activate
With oChrtO.Chart
.Paste
.Export Filename:="C:\Test\outputsample.jpg", Filtername:="JPG"
End With

oChrtO.Delete

End Sub
``````

Change the path and the Range will be dynamic based on above logic explained.

I have checked it and its working fine. Converts a given range to an image.

Note, this code is only to convert a range of Excel into a picture. For the rest of the code you can search and get it from the internet.

Announcements

#### Copilot Cookbook Challenge | WINNERS ANNOUNCED | Win Tickets to the Power Platform Conference

We are excited to announce the "The Copilot Cookbook Community Challenge random winners have been selected for the Challenge.  Thank you to everyone who participated in this challenge.    Copilot Cookbook Gallery:Power Apps Cookbook Gallery: 1. @swaminawale  1. @renatoromao     2.  @SpongYe  2.   @nickpotts10  *Please note if for any reason a winner declines, we will have another random drawing.   Check out all of the Cookbook Submissions: 1. Copilot Studio Cookbook Gallery: https://aka.ms/CS_Copilot_Cookbook_Challenge 2. Power Apps Copilot Cookbook Gallery: https://aka.ms/PA_Copilot_Cookbook_Challenge   There will be 5 chances to qualify for the final drawing: Early Bird Entries: March 1 - June 2Week 1: June 3 - June 9Week 2: June 10 - June 16Week 3: June 17 - June 23Week 4: June 24 - June 30WINNERS ANNOUNCED - JULY 8th     At the end of each week, we will draw 5 random names from every user who has posted a qualifying Copilot Studio template, sample or demo in the Copilot Studio Cookbook or a qualifying Power Apps Copilot sample or demo in the Power Apps Copilot Cookbook. Users who are not drawn in a given week will be added to the pool for the next week. Users can qualify more than once, but no more than once per week. Four winners will be drawn at random from the total qualifying entrants. If a winner declines, we will draw again at random for the next winner.  A user will only be able to win once. If they are drawn multiple times, another user will be drawn at random. Prizes:  One Pass to the Power Platform Conference in Las Vegas, Sep. 18-20, 2024 (\$1800 value, does not include travel, lodging, or any other expenses) Winners are also eligible to do a 10-minute presentation of their demo or solution in a community solutions showcase at the event. To qualify for the drawing, templates, samples or demos must be related to Copilot Studio or a Copilot feature of Power Apps, Power Automate, or Power Pages, and must demonstrate or solve a complete unique and useful business or technical problem. Power Automate and Power Pagers posts should be added to the Power Apps Cookbook. Final determination of qualifying entries is at the sole discretion of Microsoft. Weekly updates and the Final random winners will be posted in the News & Announcements section in the communities on July 29th, 2024. Did you submit entries early?  Early Bird Entries March 1 - June 2:  If you posted something in the "early bird" time frame complete this form: https://aka.ms/Copilot_Challenge_EarlyBirds if you would like to be entered in the challenge. Early Bird Submissions: @renato Week 1 Results:  Congratulations to the Week 1 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge. Copilot Cookbook Gallery:Power Apps Cookbook Gallery:1.  @Mathieu_Paris 1.   @SpongYe 2.  n/a2.   @Deenuji 3.  n/a3.   @Nived_Nambiar  4.  n/a4.   @ManishSolanki 5.  n/a5.    n/a   Week 2 Results:  Congratulations to the Week 2 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge. Copilot Cookbook Gallery:Power Apps Cookbook Gallery:1. Kasun_Pathirana1. ManishSolanki2. cloudatica2. madlad3. n/a3. SpongYe4. n/a4. n/a5. n/a5. n/a     Week 3 Results:  Congratulations to the Week 3 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge. Copilot Cookbook Gallery:Power Apps Cookbook Gallery:1. Parul_Yadav_Neo1. n/a2. SpongYe2. n/a3. n/a3. n/a4. n/a4. n/a5. n/a5. n/a   Week 4 Results:  Congratulations to the Week 4 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge.   Copilot Cookbook Gallery:Power Apps Cookbook Gallery:1. @nickpotts10  1. @ShrushtiShah  2. @Suniti_0020 2. @swaminawale 3. n/a3. @farukhis786 4. n/a4. @ManishSolanki  5. n/a5.  n/a