Vložení obrázku do Excelu pomocí VBA

28. 10. 2021 07:11:35

Ahoj, pokouším se zprovoznit vložení obrázku do excelu pomocí VBA. Potřebuji otevřít stejné dialogové okno, které se otevře po kliknutí v Excelu na Vložení a Obrázky. Zatím jsem se dostal k tomuto, ale dialogové okno, které se otevře, je jiné a obrázek se nevloží.

Nemáte někdo nápad, jak to vyřešit? Předem díky za jakoukoliv radu.

28. 10. 2021 07:11:35

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492786

Marek Havlíček

(11 hodnocení)

2. 11. 2021 09:44:13

Ale no ták, to opravdu nikdo neví co s tím? Možná to je od základu úplně blbě, což bych se nedivil :). Dopracoval jsem se k tomuto, ale stále mi to hází chybu "Wrong numbe of arguments or invalid property assignment"

A když použiji toto, tak to hází chybu "Metoda Insert třídy Picture selhala"

2. 11. 2021 09:44:13

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492785

TomasX

(4 hodnocení)

2. 11. 2021 10:58:33

A do dokumentace jsi koukal?

AddPicture má 7 povinných argumentů, https://docs.microsoft.com/en-us/office/vba/api/excel.shapes.addpicture, ty tam dáváš jako první object FileDialog, což je nesmysl, tj. tvůj případ by měl vypadat

Pokud jde o ten vzhled, zkoušel jsi ho nastavit přes InitialView (viz https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview)? Tj. z hlavy by kód měl vypadat nějak takhle:

2. 11. 2021 10:58:33

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492784

Marek Havlíček

(11 hodnocení)

2. 11. 2021 15:47:57

Díky za nakopnutí, zkoušel jsem to různě kombinovat a nakonec mi to funguje takto. Vzhled dialogového okna vlastně řešit nemusím. Ještě jednou moc díky.

2. 11. 2021 15:47:57

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492783

TomasX

(4 hodnocení)

2. 11. 2021 15:50:56

po fd.Show bys měl kontrolovat, jestli byl nějaký obrázek zvolený (návratová hodnota -1) nebo dialog zrušený (návratová hodnota 0), jinak ti může skript končit chybami

2. 11. 2021 15:50:56

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492782

Marek Havlíček

(11 hodnocení)

2. 11. 2021 15:56:38

jj, až opadne euforie, budu se tím zabývat :)

2. 11. 2021 15:56:38

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492781

Basty

(1 hodnocení)

3. 11. 2021 13:54:27

možno niečo takéto (dá sa to "počeštiť", veľkosť a pozícia zakomentovať alebo odkomentovať, typy obrázkov upraviť atď.):

Sub ChangeImage()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"

If .Show = -1 Then
            Dim img As Object
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

'Scale image size
            'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
            'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

'Position Image
            img.Left = 50
            img.Top = 150

'Set image sizes in points (72 point per inch)
            img.Width = 150
            img.Height = 150
        Else
            MsgBox ("Cancelled.")
        End If
    End With
End Sub

3. 11. 2021 13:54:27

https://webtrh.cz/diskuse/vlozeni-obrazku-do-excelu-pomoci-vba/#reply1492780

Pro odpověď se přihlašte.

Přihlásit