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

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 5
Level 5
Příspěvky: 2248
Registrován: říjen 08
Pohlaví: Muž

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

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: 159
Registrován: srpen 16
Pohlaví: Muž

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
Level 2
Příspěvky: 226
Registrován: červen 13
Pohlaví: Muž

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

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
    od Faffejt » 11 dub 2019 14:20 » v Programování a tvorba webu
    2
    906
    od Faffejt
    11 dub 2019 15:05
  • Pomoc
    od Jirka228 » 06 bře 2019 17:46 » v Vše ostatní (inet)
    1
    683
    od ITCrowd
    06 bře 2019 19:42
  • Pomoc s redukcí
    od Suiq » 06 črc 2019 09:45 » v Rady s výběrem hardwaru a sestavením PC
    4
    361
    od petr22
    06 črc 2019 11:41
  • pomoc s PC sestavou
    od Dragoslav » 11 pro 2019 10:47 » v Rady s výběrem hardwaru a sestavením PC
    7
    381
    od Michael850
    11 pro 2019 15:07
  • pomoc se setavou
    od MrFanTomas » 24 led 2020 20:53 » v Rady s výběrem hardwaru a sestavením PC
    33
    1341
    od xbs
    27 led 2020 05:20

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti