...Dim File_Path As String, My_File As String, Old_Name As String
Dim Rar_File_Name As String, Rar_Extract, Picture_File As Object
Dim FSO As Object, Picture_Count As Long, Process_Time As Double
Process_Time = Timer
Set FSO =...
...= False
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim Fname As String
On Error Resume Next
Image1.Picture = LoadPicture("")
Sheets("ABC").Select
ActiveSheet.Shapes([X!a1]).Select
Selection.CopyPicture
Fname = Environ("Temp") & "\sil.jpeg"
Set grafik =...
...vaio bilgisayarlara göre önerdiğin çözümü kodda ki yerine yazarsan ben geri kalan bilgisayarları örneğe göre kod satırına eklerim.
Else
Me.Image1.Picture = Nothing
Me.Image1.Picture = LoadPicture("C:\Users\HP\OneDrive\Belgeler\VOLANT HASTANESİ\TOPLU FOTOLAR\" & 201810221 & ".jpg")
End If...
Böyle birşey olması lazım
dosya = "c:\okul\" & TextBox4.Text & ".jpg"
If CreateObject("Scripting.FileSystemObject").FileExists(dosya) = True Then
Image2.Picture = LoadPicture(dosya)
Else
Image2.Picture = LoadPicture(None)
End If
...olmadığında resimyok dosyasını çalıştırıyor fakat benim istediğim klasörde resim yoksa boş resim ekranı gelsin
On Error GoTo hand
Image2.Picture = LoadPicture("c:\okul\" & TextBox4.Text & ".jpg")
Exit Sub
hand: Image2.Picture = LoadPicture("c:\okul\" & "resimyok.jpg") bu kodla resimyok.jpg...
...2 isimli resim, sayfada seçim yaptıkça hep sağ altta görünür:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim MyPicture As Object
Dim MyTop As Double
Dim MyLeft As Double
Dim BottomRightCell As Range...
...As Range
Dim s1
Set s1 = Sheets(ActiveSheet.Name)
sat = ListBox1.ListIndex + 2
sut = "j"
Set Adres = Range(Cells(sat, sut).Address)
Dim Picture As Object
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
yer2 =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.