- Milyen TV-t vegyek?
- Nem indul és mi a baja a gépemnek topik
- Fejhallgató erősítő és DAC topik
- Computex 2024: Itt az új ROG Ally
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Projektor topic
- Melyik tápegységet vegyem?
- HiFi műszaki szemmel - sztereó hangrendszerek
- ASUS ROG PG32UCDM: OLED csúcsmonitor tesztje
- Túlfeszültség ellen védő elosztó
Hirdetés
-
A hajlíthatók kedvence lehet a Dimensity 7300X 5G
ma Átcímkézés helyett csíkszélességet váltott a MediaTek, népszerű Motorolában debütálhat.
-
Megjelenési dátumot kapott a Tomb Raider animációs sorozat
gp A tervek szerint október elején debütál a teljes első évad Netflixen.
-
Kihagyták az NVIDIA-t egy új AI-hálózati szabványból
it Számos big tech cég összefogásával készült el egy új AI-hálózati szabvány, mindebből viszont kihagyták az NVIDIA-t.
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz bucihost #42170 üzenetére
Másik megoldás, hogy a "nagy piros x kép" ne növelje a fájl méretét.
A két, csillagokkal jelölt sor a kép méretét határozza meg. A 0.4-et írd át kedved szerint. Ki is hagyható ez a két sor.Sub PlacePics()
Dim Path As String, Pics As Range, Pic As Range
Path = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"
Set Pics = ActiveSheet.Range("B2:B20")
For Each Pic In Pics
Pic.Offset(0, -1).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(Path & Pic.Value & ".png").Select
Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft '***
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft '***
If VarType(Selection.ShapeRange) = vbError Then
Pic.Offset(0, -1).Value = "X"
Pic.Offset(0, -1).Font.ColorIndex = 3
On Error GoTo 0
End If
Next Pic
End Sub
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Milyen TV-t vegyek?
- Hálózati / IP kamera
- Autós topik látogatók beszélgetős, offolós topikja
- Ford topik
- Samsung Galaxy S24 - nos, Exynos
- Samsung Galaxy A55 - új év, régi stratégia
- Suzuki topik
- Samsung Galaxy Watch6 Classic - tekerd!
- PlayerUnknown’s Battlegrounds
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam kulcsok - UTALÁS/REVOLUT
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs