Kapalı

Fix vba excel macro

Hello,

i have this macro

Sub GenerateProductLabelTranslate()

Dim destinationPathbongiovanni As String

Dim cellFormula As String

Dim chtObj As ChartObject

destinationPathbongiovanni = GetFolder("Dove salvo etichette TRADOTTE")

If destinationPathbongiovanni = "" Then Exit Sub

For i = 2 To Sheets("Farine").Range("A10000").End(xlUp).Row

If UCase(Sheets("Farine").Cells(i, 34)) = UCase("bongiovanni") Then

'save location

fname = destinationPathbongiovanni & "\" & Sheets("Farine").Cells(i, 33) & ".jpg"

' label id (where foreach working in template

Sheets("TemplateMicro").Cells(5, 19) = Sheets("Farine").Cells(i, 1)

'move to Template farine sheet

Sheets("TemplateMicro").Activate

'set zoom

Windows(1).Zoom = 100

cellFormula = Cells(5, 24).Formula

boldAlergensInIngredientsbong

Sheets("TemplateMicro").Range("A1:p14").Select

[login to view URL] xlScreen, xlBitmap

w = [login to view URL]

h = [login to view URL]

With [login to view URL]

.Activate

Set chtObj = .[login to view URL](100, 30, 400, 250)

[login to view URL] = "TemporaryPictureChart"

'resize obj to picture size

[login to view URL] = w

[login to view URL] = h

[login to view URL]("TemporaryPictureChart").Activate

[login to view URL] = xlNone

[login to view URL]

[login to view URL] Filename:=Replace(fname, "/", " "), FilterName:="jpg"

[login to view URL]

End With

Cells(5, 24).NumberFormat = "General"

If Cells(5, 24).HasFormula = False Then Cells(5, 24).Formula = cellFormula

' set zoom to 40%

'Windows(1).Zoom = 40

End If

Next i

Sheets("INSTRUCTIONS").Activate

MsgBox "Done!", vbInformation

End Sub

------------------------------------------

But the result is a bad image, i need a new one with and better resolution.

In attachment the image

Beceriler: Excel, Visual Basic, Uygulamalar için Visual Basic, Veri İşleme, VB.NET

Daha fazlasını gör: excel vba repeat macro times, vba word macro refrence excel range, example excel macro vba invoicexls forum, cut paste macro basics vba excel, vba excel macro excel 2003 free macro example, vba excel macro cut paste cells, vba excel macro shell, status message paste complete vba excel macro, vba excel macro column unique values, check availability addin references vba excel macro, vba excel macro comments examples, vba excel macro connect mathematica, vba excel macro cut paste column, vba excel macro screen capture, vba excel macro split string cells, reconciliation vba excel macro, excel vba excel macro mail merge word, vba excel macro, freelance job vba excel macro, vba excel macro stops working when a dialog box pop up appears

İşveren Hakkında:
( 208 değerlendirme ) Villanova Mondovì, Italy

Proje NO: #30955360

Bu iş için 12 freelancer ortalamada €30 teklif veriyor

(837 Değerlendirme)
8.9
(1042 Değerlendirme)
8.2
(448 Değerlendirme)
8.3
(279 Değerlendirme)
7.0
(200 Değerlendirme)
6.7
sajibdigital

"Hi there, I am Sajib a Excel vba developer. I am interested in this project and want to work with you. Please send me a message for more discussion. Thanks"

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% EUR
(74 Değerlendirme)
5.8
arunkumar9896

Hi Hope you are doing good, I can perfectly help you with that. I am a professional Excel expert holding 7 years of experience in utilizing advance level tools and functions of Google sheets & Excel (including VB Daha Fazla

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% EUR
(11 Değerlendirme)
3.5
agupta2812

Hello there! Good day! I am interested in this project. I can help you with this. I am an excal VBA expert with more than 8 years of expereience. Please reach out to me to discuss further. Thank you!

€50 EUR in 7 gün içinde
(5 Değerlendirme)
3.1
gauravatbest95

Hey, I can get this done for you. Honestly, Code is right and it will populate image but its not setting the right dimensions. Would have even tried the solution but would be needing the excel file as well. Worst case, Daha Fazla

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% EUR
(2 Değerlendirme)
0.3
enkismind

My name is Leonardo & I work with Growthnix. We're a small development firm based out of NYC. I came across your project & I'd love to be able to schedule some time for us to discuss your project a bit more. We've cr Daha Fazla

€19 EUR in 7 gün içinde
(0 Değerlendirme)
0.0
AlekRasly

Good day! Cool task. Our team offers to do it for free for review. Note: The term of the order is conditional. The exact term of the order - we will inform you after the agreement and approval of the Terms of Refere Daha Fazla

€19 EUR in 7 gün içinde
(0 Değerlendirme)
0.0
bernardkyeyune

Hello! I have examined your code and would like to make a few adjustments to your resolution parameters. Please share the related Excel file and I shall be able to determine the changes required. Thanks & Stay Safe Daha Fazla

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% EUR
(0 Değerlendirme)
0.0