Vba Insert Picture Not Work in. PNG format

[muhammad susanto]

hi all..

i have macro code to insert picture..actually, this macro work properly in only jpg format..
how to modified this macro can work in both .jpg and .png format.
here this code

Sub Button1_Click()
Dim pic As Picture, rng As Range
For Each pic In ActiveSheet.Pictures
    Set rng = Range(pic.TopLeftCell.Address, pic.BottomRightCell.Address)
    If Not Intersect(rng, Range("B6:F6")) Is Nothing Then
        pic.Delete
    End If
Next pic
End Sub

Sub Button2_Click()
On Error GoTo NOT_SHAPE
    Dim PicWtoHRatio As Single
    Dim CellWtoHRatio As Single
    Dim cel As Range
    Selection.Copy
    Set cel = Application.InputBox("Click on destination tab and cell", "", , , , , , 8)
    With cel
        .Parent.Activate
        .Activate
        .Parent.Paste
    End With
   
    With Selection
        PicWtoHRatio = .Width / .Height
    End With
    With cel
        CellWtoHRatio = .Width / .RowHeight
    End With
    Select Case PicWtoHRatio / CellWtoHRatio
        Case Is > 1
            With Selection
            .Width = cel.Width
            .Height = .Width / PicWtoHRatio
            End With
        Case Else
            With Selection
            .Height = cel.RowHeight
            .Width = .Height * PicWtoHRatio
            End With
    End Select
    With Selection
        .Top = cel.Top
        .Left = cel.Left
    End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

any help me out . thanks in advance..

.sst

 

[muhammad susanto]

hi all...
how to rename extension file (.jpg) to .png format using Vba..
i found code below but not work, how to fix it..

Option Explicit
Sub test()
Dim strSourceFile As String
    Dim strSourceDirectory As String
    Dim counter As Long
    
    strSourceDirectory = "C:\Test\ok"
        
    strSourceFile = Dir(strSourceDirectory & "*.jpg")
    
    Do While strSourceFile <> ""
        Name strSourceDirectory & strSourceFile As strSourceDirectory & Replace$(strSourceFile, [B]".jpg", ".png[/B]")
        counter = counter + 1
        strSourceFile = Dir()
    Loop
    
    MsgBox counter & " files renamed.", , "Rename Files Complete"
    End Sub

my images in folder c:/Test\ok..
or the other code with the same function

any help, greatly appreciated.

.sst

 

[MARK858]

Why do you want to change it's extension? just renaming a Jpeg's extension to a Png extension doesn't convert it to a Png

 

[muhammad susanto]

this is in related with my previous a post...then my filename too much if use by manually

Vba Insert Picture Not Work in. PNG format

hi all.. i have macro code to insert picture..actually, this macro work properly in only jpg format.. how to modified this macro can work in both .jpg and .png format. here this code Sub Button1_Click() Dim pic As Picture, rng As Range For Each pic In ActiveSheet.Pictures Set rng =...

www.mrexcel.com

 

[MARK858]

What makes you think that it is the extension causing the issue?

 

[muhammad susanto]

cause when the macro running and browse location, only .png can't showing otherwise .jpg is showing

 

[MARK858]

If your png is in the intersect range then your png file deletes fine for me when using your delete code so Excel is detecting it.

Which of your codes isn't working?

 

[muhammad susanto]

sorry Mark858,....I'm newbie about macro code

 

[Fluff]

I have merged both threads together, as they are related.

 

[MARK858]

sorry Mark858,....I'm newbie about macro code

If your png is in the intersect range then your png file deletes fine for me

Your delete code is restricted to only the picture intersecting with the range B6:F6, if you have a Jpeg not intersecting with the range then it won't delete, exactly the same.

Maybe it would be better to explain in words exactly what you want the codes to do rather than trying to adapt code that doesn't do what you want.