VBA.Mania

Dziś jest wtorek, 30 kwietnia 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	nieposłuszny OLEObjects otwarty rozpoczął: VBAmator postów: 5

napisał: VBAmator postów: 67 umieszczony: 13 czerwca 2012 06:21
	Bardzo dziękuję.

napisał: jalamas postów: 316 umieszczony: 4 czerwca 2012 11:36
	Proszę pozostawić ZOOM na wartości innej niż 100% i spróbować: Shp.Top = Target.Offset(1, 6).Top With Shp.Object .PictureSizeMode = fmPictureSizeModeZoom 'lub fmPictureSizeModeStretch On Error Resume Next .Picture = LoadPicture(wzorzec) If Err.Number <> 0 Then Err.Clear wzorzec = sciezka & "Brak obrazka.jpg" .Picture = LoadPicture(wzorzec) End If End With Shp.Top = Target.Offset(1, 6).Top ' ****

napisał: VBAmator postów: 67 umieszczony: 31 maja 2012 13:53
	Wielkie dzięki. He, he, z tym powiększeniem to... chyba bym na to nigdy nie wpadł. Jeszcze raz dziękuję.

napisał: Trebor postów: 1209 umieszczony: 30 maja 2012 15:51 edytowany: 30 maja 2012 15:52
	Ad 1 Ustaw powiększenie na 100% (skala ekranu) Ad 2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B5:B1000")) Is Nothing Then MsgBox "Ok" End If Pozdrawiam

napisał: VBAmator
postów: 67

umieszczony:
30 maja 2012
06:56

nazwa pliku	rozmiar
BAZA.xls	181.50 kB

Witam.
Bardzo proszę o pomoc.

PROBLEM 1
W załączonej bazie produktów po wybraniu opcji w komórkach kolumny A (menu rozwijane) wyświetla się zdjęcie danego produktu.
Moim założeniem było aby zdjęcie pojawiało się zawsze przesunięte o 6 kolumn w prawo (działa poprawnie) i jeden wiersz niżej (nie działa poprawnie) co pozwala nie zasłaniać obrazkiem danego rekordu.
Okazuje się, że już w wierszach 40stych mam odstęp 2wiersze nie mówiąc o wierszach setnych gdzie obrazek prawie znika z pola widzenia. Ustawienia 'Top:=' są jakby martwe.

PROBLEM 2
Jak zdefiniować zakres (np. "B5:B1000") aby tylko w nim kliknięcie na poszczególne nazwy zdjęć było rozpoznawane jako 'Target'

Dziękuję.

wstecz 1 dalej

wszystkich stron: 1