Witam Unowocześniam pewną kartę standaryzacji pracy, która składa się z wielu stron (kazda strona w osobnym arkuszu) i chciałbym wiedzieć czy istniej...

Wszelkie elementy graficzne nie są przypisane do żadnej z komórek. Do kopiowania należy posłużyć się makrem Code: ActiveSheet.Shapes("Line 1").Select Selection.Copy Sheets("Arkusz2").Select ActiveSheet.Paste

Dziękuje, jednak nie znam się za dobrze na makrach, ale mam rozumieć że zamiast słowa "Select" ma być przykładowa komórka lub scalone komórki??

Nie. Przecież pisałem, że elementy graficzne nie są związane z żadną z komórek! Należą do grupy Shapes i każda ma swoją nazwę.

dzyszla Code: Range("C6:E16").Select Selection.Copy Sheets("Arkusz2").Select Range("C6").Select ActiveSheet.Paste gdzie c6:e16 to twoje scalone komórki c6 występujący to lewy górny róg twojej scalonej komórki więc żeby mieć tak samo musisz właśnie tam wkleić i nigdzie indziej. Dzyszla wstaw sobie autokształt ( strzałke ) w taką komórkę i zobacz ze nie musi byc tam shapes. Kopiuje zawartośc komórki i tyle Pozdrawiam

Włącznie z danymi i formułami. Ponadto jeśli chce się zachować położenie a mając na względzie możliwe różnice w wielkości komórek - taka opcja odpada.

Dziękuje bardzo za pomoc, wszystko działa jak należy. Pozdrawiam

(Excel) Automatyczne kopiowanie obrazka z komórki do komórki

Reply | New topic

#1 14 Aug 2008 09:14

Mike3129 Mike3129

Level 10

#1 14 Aug 2008 09:14

Witam

Unowocześniam pewną kartę standaryzacji pracy, która składa się z wielu stron (kazda strona w osobnym arkuszu) i chciałbym wiedzieć czy istnieje jakaś funkcja która skopiowałaby, narysowane w jednej scalonej komórce na pierwszej stronie np strzałki na każdą następną stronę, tak żeby tej czynności nie powtarzać.

Mam nadzieje, że mnie zrozumieliście ;p

Pozdrawiam
#2 14 Aug 2008 10:22

Dżyszla Dżyszla

Level 42
Helpful post? (0)

#2 14 Aug 2008 10:22

Wszelkie elementy graficzne nie są przypisane do żadnej z komórek.

Do kopiowania należy posłużyć się makrem
Code:

ActiveSheet.Shapes("Line 1").Select
Selection.Copy
Sheets("Arkusz2").Select
ActiveSheet.Paste

mgr inż. Dżyszla <- Download i oficjalna strona Dekodera Elektronika!
Nie odpowiadam na problemy i pyt. zgłaszanie via PW/mail!

Pisz bardziej wydajny kod w Delphi!
#3 14 Aug 2008 11:25

Mike3129 Mike3129

Level 10

Topic author Helpful post? (0)

#3 14 Aug 2008 11:25

Dziękuje, jednak nie znam się za dobrze na makrach, ale mam rozumieć że zamiast słowa "Select" ma być przykładowa komórka lub scalone komórki??
#4 14 Aug 2008 11:42

Dżyszla Dżyszla

Level 42

Helpful post? (0)

#4 14 Aug 2008 11:42

Nie. Przecież pisałem, że elementy graficzne nie są związane z żadną z komórek! Należą do grupy Shapes i każda ma swoją nazwę.

mgr inż. Dżyszla <- Download i oficjalna strona Dekodera Elektronika!
Nie odpowiadam na problemy i pyt. zgłaszanie via PW/mail!

Pisz bardziej wydajny kod w Delphi!
#5 14 Aug 2008 12:11

jakubw jakubw

Level 18
Helpful post? (0)

#5 14 Aug 2008 12:11

dzyszla
Quote:
z komórki do komórki

Code:

Range("C6:E16").Select
Selection.Copy
Sheets("Arkusz2").Select
Range("C6").Select
ActiveSheet.Paste

gdzie c6:e16 to twoje scalone komórki
c6 występujący to lewy górny róg twojej scalonej komórki
więc żeby mieć tak samo musisz właśnie tam wkleić i nigdzie indziej.
Dzyszla wstaw sobie autokształt ( strzałke ) w taką komórkę i zobacz ze nie musi byc tam shapes. Kopiuje zawartośc komórki i tyle
Pozdrawiam
#6 14 Aug 2008 12:21

Dżyszla Dżyszla

Level 42

Helpful post? (0)

#6 14 Aug 2008 12:21

Włącznie z danymi i formułami. Ponadto jeśli chce się zachować położenie a mając na względzie możliwe różnice w wielkości komórek - taka opcja odpada.

mgr inż. Dżyszla <- Download i oficjalna strona Dekodera Elektronika!
Nie odpowiadam na problemy i pyt. zgłaszanie via PW/mail!

Pisz bardziej wydajny kod w Delphi!
#7 18 Aug 2008 09:57

Mike3129 Mike3129

Level 10

Topic author Helpful post? (0)

#7 18 Aug 2008 09:57

Dziękuje bardzo za pomoc, wszystko działa jak należy.
Pozdrawiam

Reply | New topic