Excel hlada sa pomoc

Sekcia o programovaní, programovacích jazykoch...
Používateľov profilový obrázok
Neo13
Nový používateľ
Nový používateľ
Príspevky: 127
Dátum registrácie: St 07. Feb, 2007, 08:00
Bydlisko: Liptovské K¾aèany, okres Lipt. Mikuláš

Excel hlada sa pomoc

Príspevok od používateľa Neo13 »

mam dokument v exceli kde to vyzera asi takto:

meno

adresa
(obrazok)

telefon

a potreboval by som nejaky program resp. skript, ktory by vymazal meno,adresu,telefon,ak by tam ten obrazok bol, ak nie nechal by to tak, problemje,ze obrazok sa neviaze na bunku.. :) poradi niekto?
Používateľov profilový obrázok
Gogi
Používateľ
Používateľ
Príspevky: 473
Dátum registrácie: Št 03. Mar, 2005, 20:00
Bydlisko: TT

Príspevok od používateľa Gogi »

kedze z tvojho popisu tvojho dokumentu mas jednom dokumente ASI IBA jedno meno, adresu a fon, tak by nemal byt problem identifikovat ci tam je obr abo ne?
\_AMD_x2_3800+_@2,6_/\_XFX_9600_GT @,75-1,9-2,2_/\_3G_RAM_Výrobca_=>_miš&maš_/\_Power_by_ASUSTeK_A8N_SLI_Premium_/\_2x80G_Samsung_/\_Casemod_-_hotovo,_uz_sa_mi_viac_nexce_/
A tak som si raz zmenil farbu podpisu na zelenú aby bolo jasné čo mi modrá môže
Používateľov profilový obrázok
Neo13
Nový používateľ
Nový používateľ
Príspevky: 127
Dátum registrácie: St 07. Feb, 2007, 08:00
Bydlisko: Liptovské K¾aèany, okres Lipt. Mikuláš

Príspevok od používateľa Neo13 »

no asi som sa zle vyjdaril ono to tak vyzera,ze je tam jedno ale je ich tam 1000 a tie, pti kt. je obrazok potrebujem vyhodit
Používateľov profilový obrázok
Gogi
Používateľ
Používateľ
Príspevky: 473
Dátum registrácie: Št 03. Mar, 2005, 20:00
Bydlisko: TT

Príspevok od používateľa Gogi »

to si mi to teda uplne bohovsky upresnil

poznas kolekcie? ak ano tak vedz ze kazdy list ma kolekciu shapes, pomocou ktorej prejdes vsetky (ako to povedat) "graficke prvky" na liste(cize AJ obrazky), no a kazdy shape ma vlastnost topleftcell :wink: (naco to sem vlastne pisem, keby si kolekcie poznal tak si to zistis aj sam)

a ak nevies co je to kolekcia tak skus vyuzit tento kod

Kód: Vybrať všetko

Dim obj_Shape As Shape
    For Each obj_Shape In ActiveSheet.Shapes
        obj_Shape.TopLeftCell.Select
    Next obj_Shape
\_AMD_x2_3800+_@2,6_/\_XFX_9600_GT @,75-1,9-2,2_/\_3G_RAM_Výrobca_=>_miš&maš_/\_Power_by_ASUSTeK_A8N_SLI_Premium_/\_2x80G_Samsung_/\_Casemod_-_hotovo,_uz_sa_mi_viac_nexce_/
A tak som si raz zmenil farbu podpisu na zelenú aby bolo jasné čo mi modrá môže
Používateľov profilový obrázok
Neo13
Nový používateľ
Nový používateľ
Príspevky: 127
Dátum registrácie: St 07. Feb, 2007, 08:00
Bydlisko: Liptovské K¾aèany, okres Lipt. Mikuláš

Príspevok od používateľa Neo13 »

dik,pomohlo

Návrat na "Programovanie"