ID tematu: 75306
 |
odznaczanie obrazu |
Autor |
Wiadomość |
marzatela
Excel Expert


Zaproszone osoby: 328
Wersja: Win Office 2019
Pomogła: 473 razy Posty: 2710
|
|
 | ID posta:
431758
|
|
|
 |
|
|
|
Kaper


Zaproszone osoby: 2
Wersja: Win Office 365
Pomógł: 4523 razy Posty: 9021
|
Wysłany: 01-12-2023, 11:57
|
|
|
Hm, nie jest oczywiste co jest zaznaczone wcześniej.
Generalnie zawsze coś jest zaznaczone, także nie "odznaczasz" tylko "zaznaczasz coś innego".
Np. jeśli przed "zabawą z obrazkiem" jest zaznaczona komórka, to coś takiego:
Kod: | Dim kom As Range
Set kom = Selection
' tu praca z obrazkiem
kom.Select |
|
_________________ Kaper Jej Królewskiej Mości
Jeśli dane będą torturowane dość długo, przyznają się do wszystkiego |
|
 | ID posta:
431763
|
|
|
 |
|
|
marzatela
Excel Expert


Zaproszone osoby: 328
Wersja: Win Office 2019
Pomogła: 473 razy Posty: 2710
|
Wysłany: 01-12-2023, 12:24
|
|
|
No właśnie nie. Ten fragment kodu wygląda tak:
Kod: | ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "Obraz_" & CellValues.Address(False, False)
.Left = CellValues.Left
.Top = CellValues.Top + 1
.Height = 50
.Width = 48
End With |
Uruchomienie całego kodu (to tylko fragment) za pomocą kliknięcia w przycisk.
Zaznaczony zostaje tylko ten wstawiony obrazek. |
_________________ marzatela
https://excel.marzatela.pl
https://access.marzatela.pl
A tu możesz mi postawić kawę:
https://buycoffee.to/marzatela |
|
 | ID posta:
431765
|
|
|
 |
|
|
master_mix
Excel Expert


Wersja: Win Office 365
Pomógł: 1293 razy Posty: 2637
|
Wysłany: 01-12-2023, 13:49
|
|
|
a musi być select?
Kod: | With ActiveSheet.Pictures.Insert(Url).ShapeRange(1)
.Name = "Obraz_" & CellValues.Address(False, False)
.Left = CellValues.Left
.Top = CellValues.Top + 1
.Height = 50
.Width = 48
End With |
|
_________________
Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie. |
|
 | ID posta:
431771
|
|
|
 |
|
|
marzatela
Excel Expert


Zaproszone osoby: 328
Wersja: Win Office 2019
Pomogła: 473 razy Posty: 2710
|
|
 | ID posta:
431778
|
|
|
 |
|
|
Artik
Artik


Wersja: Win Office 365
Pomógł: 3263 razy Posty: 10781
|
Wysłany: 06-12-2023, 02:17
|
|
|
A jeżeli już jest obiekt zaznaczony, to można focus "zgonić na arkusz" przez dodanie
Artik |
_________________ Persistence is a virtue in the world of programming.
Weryfikator NIP - szybka, masowa weryfikacja w MF i VIES. |
|
 | ID posta:
431893
|
|
|
 |
|
|
marzatela
Excel Expert


Zaproszone osoby: 328
Wersja: Win Office 2019
Pomogła: 473 razy Posty: 2710
|
|
 | ID posta:
431894
|
|
|
 |
|
|
master_mix
Excel Expert


Wersja: Win Office 365
Pomógł: 1293 razy Posty: 2637
|
Wysłany: 06-12-2023, 14:32
|
|
|
nie testowałem, ale teoretycznie:
Kod: | Dim mSelected
Set mSelected = Application.Selection
ActiveSheet.Pictures.Insert(Url).Select
With Selection.ShapeRange(1)
.Name = "Obraz_" & CellValues.Address(False, False)
.Left = CellValues.Left
.Top = CellValues.Top + 1
.Height = 50
.Width = 48
End With
mSelected.Select |
|
_________________
Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie. |
|
 | ID posta:
431918
|
|
|
 |
|
|
|
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych Wersja do druku
|
|
Strona uĹźywa plikĂłw cookies.
Kliknij tutaj, Ĺźeby dowiedzieÄ siÄ jaki jest cel uĹźywania cookies oraz jak zmieniÄ ustawienia cookie w przeglďż˝darce.
KorzystajÄ
c ze strony uĹźytkownik wyraĹźa zgodÄ na uĹźywanie plikĂłw cookies, zgodnie z bieĹźÄ
cymi ustawieniami przeglÄ
darki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe
|