Pomoc s makrem

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

giitzzz
nováček
Příspěvky: 3
Registrován: leden 20
Pohlaví: Nespecifikováno
Stav:
Offline

Pomoc s makrem

Příspěvekod giitzzz » 21 led 2020 15:24

Zdravíčko,
Potřeboval bych pomoci s makrem. Makro mi funguje tak, že když je určitě hodnota v buňce např. 1 tak mi to vyhodí koment s obrázkem. Já bych potřeboval když v té stejné buňce bude hodnota 2 tak mi to hodí jiný obrázek. Tato buňka je ovlivněna jinou.

Zde je kód:
Sub Obrazky()
For Each cell In Selection
obrazek = Application.GetOpenFilename(FileFilter:="JPEG (*.jpg), *.jpg", Title:="Vyber obrázek")
ThisPicture = obrazek
With cell.AddComment
.Shape.Fill.UserPicture ThisPicture
.Shape.Height = 250 ' vyska
.Shape.Width = 350 ' sirka
End With
Next cell
End Sub


Děkuji za pomoc! :)

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Pomoc s makrem

Příspěvekod atari » 21 led 2020 15:41

To je nesmyslné zadání.
Toto makro "nehází" žádný obrázek. Tak nemůžeš chtít, aby makro "házelo" jiný obrázek.
Obrázek vybírá uživatel, a ten si vybere jaký chce.

giitzzz
nováček
Příspěvky: 3
Registrován: leden 20
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Pomoc s makrem

Příspěvekod giitzzz » 21 led 2020 16:53

Tak v tom případě chci abych ho nevybíral já, ale aby byli nadefinované a podle textu v buňce by to zobrazilo ten daný obrázek...Dělám to v práci zítra pošlu fotku co to dělá.

MePExG
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

Re: Pomoc s makrem

Příspěvekod MePExG » 21 led 2020 20:21

Dá sa aj bez makra https://www.youtube.com/watch?v=S2885_K1AhI&feature=youtu.be&fbclid=IwAR0uxijTaqynCoPRyTSr34HS8e5Wg0UufjbmjSvnVwyGep5EsVPpcvVtyfQ, iba keby ste chceli Excel používať na prehliadanie fotiek (ale na to sú určené iné programy).

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Pomoc s makrem

Příspěvekod elninoslov » 21 led 2020 20:48

Pr. ???

Kód: Vybrat vše

Private Sub Worksheet_Calculate()
Obrazky
End Sub

Sub Obrazky()
Dim OBR() As String, Obrazek As String
    On Error Resume Next
    Range("D4").Comment.Delete
    Err.Clear
    OBR = Split("real0f35.png,wer1cd14.png,tres0x72.png", ",")
    Obrazek = "d:\Dokumenty\Obrázky\Graphics\icons\icons\" & OBR(Range("D4").Value - 1)
    With Range("D4").AddComment
        .Shape.Fill.UserPicture Obrazek
        .Shape.Height = 250 ' vyska
        .Shape.Width = 350 ' sirka
        .Visible = True
    End With
    If Err.Number <> 0 Then Range("D4").Comment.Delete
End Sub

giitzzz
nováček
Příspěvky: 3
Registrován: leden 20
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Pomoc s makrem

Příspěvekod giitzzz » 22 led 2020 07:18

Posílám obrázek, aby to bylo víc jasný co přesně chci.
https://prnt.sc/qr3d8u
Takže když změním modul z 300 na 400, přepíše se název programu tj. z a111p01 na a111p07. Momentálně jak to mám mi to vyhodí správný obrázek programu u modulu 300, ale když přehodím ten modul na 400 obrázek zůstane stejný.
A ještě dodatek funguje to tak když mám kurzor na té buňce s tím programem. A ještě nevim jeslti se ty miniatury se budou zobrazovat na jiném počítači.
Děkuji mnohokrát


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Pomoc se sestavením PC 45-50K
    od Kvp2 » 03 lis 2023 23:27 » v Rady s výběrem hw a sestavením PC
    22
    2624
    od Kvp2 Zobrazit poslední příspěvek
    12 lis 2023 20:39
  • Pomoc s výběrem HW
    od adelafridrichova » 13 dub 2023 20:41 » v Rady s výběrem hw a sestavením PC
    6
    2109
    od Karrex Zobrazit poslední příspěvek
    14 dub 2023 14:09
  • Pomoc s instalací Windows Příloha(y)
    od volvo1971 » 02 zář 2023 10:00 » v Windows 11, 10, 8...
    8
    1497
    od martin.100 Zobrazit poslední příspěvek
    02 zář 2023 18:33
  • pomoc v oblasti grafiky
    od showpayne » 07 srp 2023 19:08 » v Vše ostatní (Off topic)
    0
    1380
    od showpayne Zobrazit poslední příspěvek
    07 srp 2023 19:08
  • Pomoc s výběrem SSD disku
    od eli125 » 25 dub 2023 12:37 » v Rady s výběrem hw a sestavením PC
    1
    1179
    od Zivan Zobrazit poslední příspěvek
    25 dub 2023 15:07

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti