Kako v excelu shraniti kot sliko?

Torej zanima me, če je kakorkoli mogoče v excelu npr. list, ki vsebuje neko sliko, okrog pa so neke formule (številke), shraniti kot sliko JPG oz. BMP. Pod SAVE AS... filtra za sliko ni. Zdaj pa ne vem, če še obstaja kaka druga možnost in ali je možno te filtre dodatno namestit. Odpade možnost Printscreen, ker mora rob slike zajeti ravno tisto območje, da je v njej slika in podatki in nič več, rezanje vsake slike posebej pa ne pride v poštev, zaradi večje količine slik

Mislim, da je najbolje narediti skrinšot. Da se, mpak so bedni bitmapi. Sicer pa, probaj sam:

Kopiraš izbran obseg celic s sliko, držiš shift in v meniju edit izbereš prilepi sliko. Kopiraš, kar dobiš in še enkrat ponoviš. Tokrat izbereš v meniju edit kopiraj sliko.

Tole je žal najboljši način, ki ga vem.

Evo cel postopek, kako bi naj stvar zgledala. Odprem nov list, v tega vstavim eno sliko, ki bo ves čas tam. Okrog nje pač našibam neke formule, ki bi izračunavale različne vrednosti glede na vhodne vrednosti, ki bi jih potem moral vedno vpisati. Ta dokument bi potem uporabljal praktično kot predlogo in vsakič ko bi vstavil različne vrednosti, bi rabil ta list shranjen kot sliko. In imel bi tudi več teh predlog v katere bi vstavljal vedno nove vrednosti (po potrebi pač). Vedno bi pa rabil sliko te predloge.

Samo še vedno nisi pojasnil al rabiš sliko znotraj ali zunaj Excela?

Ja to to je najlažja rešitev razen, če boš delal to 8 ur na dan, Potem si lahko napišeš aplikacijo, ki dela to namesto tebe. Ti samo označiš in klikneš npr. gumb, ki naredi ostalo.

Enostavno. Kar v Excelu s pomočjo VBA.

V Excelu odpri en modul in vpiši tole:

Sub ShraniSliko()
Dim AppID As Long
Range("B10:E20").Select 'Območje s podatki
Selection.Copy
AppID = Shell("X:\Pot\MSPAINT.EXE", 1) 'Slikarski program
SendKeys "%{E}{P}%{F}{A}", True
SendKeys "ImeSlike", True 'Shrani pod to ime
SendKeys "%{S}%{F}{X}", True
End Sub


Zatem ta makro pripni na en gumb. To je osnovna logika. Kaj pa kaj pomeni pa si malo prečiti Help

A nisu reku, da si že neki delo z VBA? Torej:
Ko si v zvezku pritisni Alt+F11 oz. Tools|Macro|Visual Basic Editor.
Nato izberi Insert|Module.
Prekopiraj prejšnjo kodo v ta modul.
Preklopi nazaj na zvezek.
Nato na orodno vrstico pripni en gumg, ki mu dodeliš prejšnji makro.

Če ti ta postopek ni dovolj razumljiv, ti priporočam da raje ostaneš pri metodi brez VBA in najprej prebereš kakšno lažjo knjigo o tem.

Slavček, sem sprobal ta tvoj modul, pa mi ne deluje najboljše. Paintbrush sicer odpre (v ozdaju), označene celice pa hoče shranit v Excelu z XLS končnico in ne v Paintbrusu z JPG. Se ti da popravit?

Paintbrush pozna JPG, črke bom pa poskusil ugotovit. Kako bi pa nastavil, da mi shrani v JPG namesto v BMP?

To lahko narediš na ta način:
Sub ShraniSliko2()
Dim strCel1 As String
Dim strCel2 As String
Dim strFileName As String

strCel1 = Range("A1").Value
strCel2 = Range("A2").Value

strFileName = strCel1 & "x" & strCel2 & ".jpg" 'Itd...

'Ali obstaja datoteka?
If Len(Dir("X:\Pot\" & strFileName)) > 0 Then
MsgBox "Datoteka " & strFileName & " že obstaja!"
Else
MsgBox "Shrani sliko..."
End If
End Sub

To je sedaj končna/zadnja rešitev:

Sub ShraniSliko3()
Dim AppID As Long
Dim strCel1 As String
Dim strCel2 As String
Dim strFileName As String

strCel1 = Range("A1").Value
strCel2 = Range("A2").Value

strFileName = strCel1 & "x" & strCel2 & ".jpg"

If Len(Dir("X:\Pot\" & strFileName)) > 0 Then
MsgBox "Datoteka " & strFileName & " že obstaja!"
Else 'Shrani sliko
Range("B10:E20").Select
Selection.Copy

AppID = Shell("X:\Pot\MSPAINT.EXE", 1)

SendKeys "%{E}{P}", True
SendKeys "%{F}{A}", True
SendKeys strFileName, True
SendKeys "%{S}", True
SendKeys "%{F}{X}", True
End If
End Sub

In pazi, kot sem že omenil Paintbrush ne podpira jpg pri shranjevanju. To pomeni, da če boš probu odpret ta "jpg", kje drugje ne bo šlo, čeprav zgleda, kot da je shranu.

Pa veliko uspeha pri nadaljnem raziskovanju.

Super, dela, na koncu ti je manjkal samo ukaz "End if". Edino škoda je, da se nisem tega spravil prej delat, ker so se na firmi že odločili, da bodo kupili en štorast program za 200.000 namesto tega, kar jim "jaz" v Excelu naredim zastonj. Jaz ga bom friziral še naprej, mogoče pa le kdaj pride v uporabo.

Izberi ukaz Oblika|List|Ozadje (ang. Background).
Samo to ti majhno sliko položi eno poleg druge kot v browserju.