Příspěvky uživatele

Asi bych to uděla takto.

Do každe buňky kde mají být obrázky bych vložil oba dva na sebe a pojmenoval je např.
Prvními 4písmeny listu + číslem sl. + číslem řádku a jestli je barevný nebo černobílý např.
(SimV203Black nebo SimV203Color - platí pro buňku T3
SL.A=1 - T=20 a řádky jsou jasné.

Upravil bych jim ještě kompresy.

Potom bych do listu kde jsou obrázky vložil toto makro
Private Sub Worksheet_Change(ByVal Target As Range)
Call ColorPicture
End Sub
a do Obyčejného modulu toto
Sub ColorPicture()
Dim NamePicture As Variant

on error resume next
NamePicture = Left(ActiveSheet.Name, 4) & ActiveCell.Column & ActiveCell.Offset(-2, 0).Row
If ActiveCell.Value = "Ano" Then
ActiveSheet.Shapes(NamePicture & "Color").ZOrder msoBringToFront
ElseIf ActiveCell.Value = "Ne" Then
ActiveSheet.Shapes(NamePicture & "Black").ZOrder msoBringToFront
End If
on error goto 0
End Sub

Pak by se mi podle "ano" nebo "ne" přepínal obrázek v buňce nad výběrem.

Radši mít větší soubor než spousty složek.

A tady je druhý soubor.

Kdysi jsem něco někomu dělal.

Koukni a uvidíš,
V jednom se vkládá obrázek do buňky z jiného listu téhož sešitu a v druhém se vkládá z nějaké složky.

Řešeno přes makra.

Tady posílám soubor,
kde mi to jde.

Pri Otevreni sesitu se nactou nazvy obrázku.

Něco takového?

Private Sub CommandButton1_Click()

If ComboBox1.Value = "" And ComboBox2.Value = "" And ComboBox3.Value = "" And ComboBox4.Value = "" Then

MsgBox "musite něco zadat..."
End If

End Sub

Tak zkus vyhledat tu buňku ve vzorcích jestli ji tam třeba nenajdeš.

Nesmažeš si to nějakým makrem?

Jinak jsem se stím nesetkal aby my sám mizel vzorec.

A co takto?

If ComboBox1 = "" Then

MsgBox "Vyberte typ linky...", vbInformation
Exit Sub
End If

If CheckBox1 = False Then

If CheckBox2 = False Then

MsgBox "Vyberte rozměr... ", vbInformation
Exit Sub
End If
End If

If CheckBox1 = True Then

If TextBox1 = "" Then

MsgBox "Zadejte délku...", vbInformation
Exit Sub
End If

If TextBox2 = "" Then

MsgBox "Zadejte šířku...", vbInformation
Exit Sub
End If

If TextBox2 = "" Then

MsgBox "Zadejte výšku...", vbInformation
Exit Sub
End If
End If

Vypocet.Show ' Sem potřebuji přepnout pokud je kontrola splněna

A makra povolíš když otevřeš ten sešit?

Ta hláška říká, že je nemáš povoleny.

Máte pravdu, stačí jen správně seskládat kód

Ale měl jsem radost, že se mi něco povedlo.

Nevím co je na tom krkolomné.

Zápis na jeden řádek, to o co ses na začátku pokoušel

MultiPage1.Value = IndexPageByName("Page4")

Udělal jsem na to fci.

Když znáš jméno stránky tak ji dokážeš vyvolat aniž bys znal její pořadí

takto se přepneš do Page2 z Page1 nebo jakékoli jiné po kliknutí na Image

Private Sub Image1_Click()

MultiPage1.Value = 1

End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje