[VBA] Web Den Resim Linklerini Alma
#1
merhaba 
access formu üzerinden google den  kalem görsellerini   taratıp 
çıkan resimlerin  ilk 10 tanesinin  linkini  alabileceğim bir yöntem  varmı acaba 

aşağıdaki kod ile  ilk 10 resmi  klasöre  alabiliyorum  linklerini  alamadım 
yardımlarınız  için şimdiden teşekürler

Visual Basic
  1. WebBrowser1.Silent = True
  2.    WebBrowser1.Navigate2 "https://www.google.com/search?q=" & Me.ARAMA1 & "&tbm=isch&sa"""
  3.          T1 = Now
  4. t2 = T1
  5. Do While DateDiff("s", T1, t2) < 3
  6. t2 = Now
  7. DoEvents
  8. Loop
  9. Dim HTML_Body, HTML_Img As Object, AlinanResim As Object, resimsay As Byte
  10.        
  11.        For resimsay = 1 To 12
  12.        Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
  13.        Set HTML_Img = HTML_Body.getElementsByTagName("img")
  14.        Set AlinanResim = HTML_Img(resimsay)
  15.    
  16.        URLDownloadToFile 0, AlinanResim.src, CurrentProject.path & "\RESİM\" & resimsay + 1 & ".jpg", 0, 0
  17.        Next resimsay





  Alıntı
Bu mesajı beğenenler:
#2
HTML_Img(resimsay).src
ile resim yolunu alabilirsin.



  Alıntı
Bu mesajı beğenenler:
#3
çok teşekürler sayın dsezgin konu çözüldü sayanizde.



  Alıntı
Bu mesajı beğenenler:
#4
hocam bu yöntemle aldığım resimler çok kelitesiz ve  küçük  oluyor  
linkde   www.  ile  başlamıyor data:image/jpeg;base64,/  bu şekilde  geliyor

yüksek kalidede  resimlerin linkini alabileceğim bir yöntem  varmı  acaba

örnek olarak aşağıdaki gibi geliyor linkler  ve görüntü kalitesi çok düşük  
Visual Basic
  1. data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAoHCBUVFBcVFRUYGBcZGiQcHBoaGhoiHRogIh4hHSAjICAgICwjIiIpICAaJTYlKS0vMzMzICI4PjgyPSwyMy8BCwsLDw4PHhISHjopIyo1OjIyMjIyNDIyMjcyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMv/AABEIALcBEwMBIgACEQEDEQH/xAAbAAACAwEBAQAAAAAAAAAAAAAEBQADBgIHAf/EAD0QAAIBAgQEBAUDAwIFBAMAAAECEQADBBIhMQVBUWEGEyJxMoGRofBCscEj0eFi8QcUFVJyM4KSohZDU//EABoBAAMBAQEBAAAAAAAAAAAAAAECAwQABQb/xAAsEQACAgICAgIBAwMFAQAAAAAAAQIRAyESMQRBIlFhE3GBMpGhM1LR8PEU/9oADAMBAAIRAxEAPwDO4nhstmGnWu/LI2rTHBdq+f8ATe1SjBlXJGeS+45TXa4480b5Vo14WOlFWeEjpVYwb7JuSM3Zus21tvpTXB4C424yitBh+HAcqY2cKBVEoRJNyYHwzhypruepp3bFAcQx9rD2muXDCqPmew715ZxP/iJi7jN5X9O3yAEsB3NJPKui2PBKStI9Y4nxizh0L3bioO5GvsK8+4//AMSWLZMOuUHZ21Lf+KisAouYy6AzM2ss7sTlWJb251fcw7XbrPYWPLEiY+FdJpHJfZSOCVXRbjrl17ga75h8wFAz8idRHShOBK3nhWmVmR7b0Zj8QL9kMQVZek7jr0qvgmIm+jxBb0k8pihLj6GhziwLiLlnJnmYHQTXxK0PGPDt1rhNtQR7jWgn8O4hFLOkKDqQZP0FY5ZYPTkrPWw5oRevfo+cKI8wAiQd61HEbwt2tRI2zR9AazPDbH9QTMTvBFNuMi/5a2yAVJ+ITr0kxpSxklZsnmxtp2jNY7FO8AnsB70LetMjFGEEU/u+G3SHa4GA1gKf3pTxK8124PT6tp5EVWMk9J2efk8lSyWuiuy9aLhd4kCTWXvK1tsriDTzgVl3PRf3rP5ME4WbY+bCMNs9B4AgPqjeiMb4q/5VwqKHQk5hOo7Cvlm9aw1oG44VfuewrE+KOK2btxbllpzCGEEEEe9ZPHxTi+SZ4Gdubcj0fE+P8JbVNWd2iEQS2vXkIrLcb/4im8j27KtaYPo8ySoPSN+3Ssfw5DmDHedKUY7Hutx1ELDEekb16MckptxRllJ+jY//AJBinUsb75lYTBgQecCtBw7xbfU21aLoMZm2yjrPOvNeGcWcMVf1Kwgg7TyntNavgd1HUwpSdCJ016dKm+UJbZtxZ3PGoNXXutnsNpw6hhsRXGRTSHB8at2MNa8zcwuWfUBJAPsI1NTCcWtrirlsXFKEBpn9R0gVb9WOiE/jJqxtdwinlSnHcDR91FaBXBEggg8xXJUU7igqTR53xDweDqmh7VncXwK/b29Q7ivTeN45rajIoJInXoKp4di7eIt5415jpSOJaOVo8ka46H1Ky+1ELxDlmB7MK9OxvALbzKiszxLwepnLpSOKLRyr/wAM55w//kv1qVY3hW4Ov3qV3D8lv1vyz0oYWrVwtHhBXeUVvs8cDTCir0tgV2Wrh7lK8lDKJ2IFAcX4vbw9su5joOZPQCgfEHiG1hF9ZzXT8Nsb+56V5dxbit3E3M9w6clGwFZ55fSN/ieDLK7fRd4j41dxdyWOW2PhQGY7nqaEwGCdiMiZtee3zrm3lkE6DoP2os8RVFi3KmZM7Hp8wazSlKR9Jiw48UUkhunC7rTnIA2KpAEd4FGYHhS23YIhzG3liZkmST+21Zv/AK9dE+uCxknr2+tWDjNy4w8kP5kQWDTGsgydRRja22RzOCjukg+74fe0jKYAuqU9Q2j1Bv3obgHCXUsFUGDBc7H2piMPdYrcxbl9IEn0j/NaOw6BfSPSRGlYfK8z48YbX2eL5Eoy1EDucPvomdStwL8SpOYfLnQOF8QodCwPUGnnh/CvZd38xnRjorfpHP3oHxTwbBm47ZIdgD6eVY4LHJ1L+6Ml06DcHxCy0Sq9KY5LNzmsbR0rCYbhlq2JuO88gGgCucZZvKBcsPmtsJGYwyjbXkapHDbqMtfnX+Q2eh4jCWmSFgnaKxvEeEpmDHKsHU9fellni164qhZDKDLQTMf20q7E3WBhixZ4AY7KY1I7b1sxYpqVvQ8YsXcV4RFzODmB2O+vStDwrhr27RuEDPHoVtBPehOGkg+Y7AKmvXNuBof3oLi3F7l4zJW2NAOZqk7lKvoZqMVbEvEHusx8xiSSTEyPkOQqW8GyrnIG8anbvVhxCzJ1jYdas8xmWSB8qdyZkk4JO2S7fyLmicp1HMjt3rN4i75lxnIjMf8AFaPHYi2LakjKBodZLHr+9AW2S58FsDXVm1J9gNKphfFN1/JBLVleBwZIJEHSiJdGAUmDHt86ctw63bKgXCrQCYVPp8M0LdxKs5tqR5ciXIHp6nua6fLlvaK+P5P6TbX7B2Oxk+WEZrgAyhiIGhkgTyE1TauS4SehJ1jL1HUR9ae8KwtggJcQNAyw0HQ6zB59/tEV1xrBIq2z6UVFyF42GgUe01lqKM0nbs9B4dbtWrKhG/pqs5ieW8zUwfFbN0kW7qsRyBryjH8UxVuyuHdxkMwV5r79KJ8JcJu3LqOhKIp1fb5DrW1ZbpJFVk6pHoHEkzJbP/ktYXhvEPIcgGBmgj2Nb+8k2jzyPXlnHCUv3F5Zp+utGUuKss3Ss9gS4rqGUyCAa4dAawvg3j+RvJuH0n4SeXat6woJqStDRdoF/wCWHSpV1SuGOi1cs9csaou3YrRKZNROrl2s74m8SDCpCwbzDTog6+9GcRx4tqWO8af3ryjiGKa7da4xJk/aoSmbvD8b9Se+j6j+Y7Pdf1EFpO7HePn/AGri7dmYiNdOntzq244UemMraxOoMcxoYGvb3rjCYYMZaQg39+g61J/bPc5rHF/SAnZuQmqDbc1tcRw23bC8y2igbk0G/DG3IG3wjke5oPNGJ5WXyZze3QlwXB2YBnzEE6KOfueQp5geI27ZyBMhX6cvrvVnCcbM220fKVUQIBB0gjfrPvvTBvC5uENckgGSDt8u3vUc2SLdZejHKV7KccHvrCiVYGCdh3HKR9qaYZDatIpHqVYIJksfqa6bH28PbCDZBEgSqj/erOFYq1cIf4wd5n+Nh2rBO+FJfG9E5Nn2xduOeSheh/fvRGJtShMhm70PZ4ddV3uW8oLtMkLoN/SsHcctNhQXF+JBRmzDNsywdxoTrSvx+nF/wI0Z7xHeVTkDlxqFJnSTMTz+lccO8y+PL8xAEQZUmC0chO8CSTUw6LfuxckAmNBJGnIczRvB+HKC+VfUbTCWDAoSSCVjoADGuhr140409F4wdWH4a75loSh/pMCCDpImFJ29RE1VxG0GidI1EaZjA0MQPlGsGhuEcRt2y9trhWSAzA+nmRLiANRTTiPlojXP6YOQKTl0mN5M6/Y060tj3vQhwuKTzCGkZvoDO0cqH4rixcfKhGQemepnWBQ2EYs2aCqEQTOpHOD17VXjcMTGRCBJhuo/il4pz2CatbPuFsFnKLvEgkfXnpTFOHvBzGQOnOq+H2yqgj1OCZk8uk/zXWM41cAKJbCnaSCW+Q2oyhszOEIdoA4koyww5zXPC3DOqKOp12gUBfZ2aXYk96pV4YEEjXcGDHvTxx/GrITn6S0MeJ45yx1/3oM4gDKu41369aMx+FhTz1mluSQTG1Nj4uOiNo2vhe7aC2mF0LdNzK9tj8algFKzzA6U/wDE2GZ7LW0IDEgyegM/xXlQEmBr/Fa9+Ik2ER3LMsaka6bc9dDHyqGaPFpoFFmDxwVBavZTlO+4Nb7AcQQW1iAOQXavPsNw9GuF2aQV06A1qeFYO2LJYPDqZIJjTtS45cXa9lscXVmpwt2bd0f6p+orAeKOHs+KXIPiUH+K1nCLwKXofNKyDI5cqGx6K1u1cj1DTT3irP5ou1aMLxDDGw0OYaJUjrW/8G+IFxFvIx9a6e9YrxHgiz5iCR+1LeF4lsPdFxOR+opINR0Jycdej22KlLMHxm1cRXzD1CalXKWXXLlU2ULlj+lRJ/tQ+Iu034lbGHwZn4mEsa5K7YfaR5h4x4rqUnU/YVkxdGUqDznlJ+/vTZMUty87todhKBwRtGUgiehptwPwmouG7eUZf024HWZaNB7Ck+KjbZ60cn/z8Y13tijg3BLuJYO+YW4jMeg5L231rS3vLtxbtIpuLpO6rI1JHNqLxmOJ/p2vSI3GwgbCAem8f3GcNnFifLyBSCPUBmk6k89ZO5rNPJye2l+5kyZnbG3kZJclrpiQTAOu+kx2iuUw9y8pENbE/EdwBuADp86ecG4O+TPiMrNEnLso3gTr7muMfxe1bXKmrnQQJnp86wyk+Wu/v/hGZz+jjDYWzhkE8tju31NL+LceGZQzeWp1ieXUn+N6C81S4N5wJ2WfwE03xXD7d+3kSMxkhdNViN+vUdSPkIwuXz2d+4FgsVYxLeVbHmHfQGIUGZ5xBInrFfV4QLF2UbQGFZJEkjdhPqWDtS6zwO5hmVwVtjVdN23BDGOjGruL8f3ykydySZ9pnWtT4pKONsUJxvGzbUpmkjTny6e9Z7FB3Ie4DJIYLG45Sd9enaghdd2B0k7SedOLl1r6DU50MlVVRmUAbHqPbYGqY8PErCFK2WHBG4LdxVOdj6TBgn9gIBg7jtVuAxlw3dyrAeWREwZ1BB1B3151xwbjJtulq4rOLjDK6gg66QV5ERtHOnHH8Jbtr5qnM8SWmPiggsszziCDE1p4uKpoe03aF2OwltBcnysrSxJBKnXQdZAG2x196zrXTcC23aEA35kcp+wrhcUbz5LhJQxlRTrvBInc6z3p3wvAW0xEucywVykrmBgDnIEEyDHLSuk2kkwqK7OeH8NcEWyQsLmysDqd/SImR23mrTh1Ds7v/Tt/FGrZmJExtAMad/eK73ESbhRRNtTpI1BZp9LA7gdzzA0mCnwwtrnVzFxA+XKJGuaCx7wZMGkp1bD7FnFGtomYwsrMLoY15jvSZuJXHRVJgRqeZ/xVfEsZ5pIiPVLQI+9COSXy9OXWrKJDLctIvS0W0A1j60ObTZwLilVMCY0UddPvRF9TbJAOq/8A22jltBrQPiTeCgQpUZid9V1EkiNv9qNuIkcEap9i/iFsKiqHZmEHPoRroBEcv70ksWGJ+ICNCa1GKTOp2U5SJB3I23Ed668O8JtXLIZmGafXJ1Ua6x1Mc9gTSc+ELJZYRhGkK8NgMiG40qm+Y7t2A603wC21th7ts5gfSrKdj2I9qA4rihcuW7aNlt22jNtIn4vpsKY8UX0ggROusz85/aoyk6Tfb/wZr9BfBsOly9my5beoZBOUiO50+UUpvvDMM0IphZ12Jj5xRfCceAHTWQszy3A1+tJ8Q7O5nkYAG3TbrSRTcmmGNo3Pg/EWwR6wwYZWG2WRAP7UwwWJBt3bbRmRiVJ2MGvNMOWDDISG5R+1F8WxzyFIKQASNdTGp161TFFxlXaL45Nqj0nieDS7bt3UiHGo6GknFfDa3LRa3pcXX3oLw3xDCZA2Ju3VuKfSoLZY6wNK0+Dx9u4M9psyzH+4q3FWO0eX+fcXSSIqV6Zd4PhrhLlBLampS8ZE+D+xtwLD+bfUH4V9R/itH4lwnm2XQbxpFA+D7WW29w7sYHsPw0bjcXAJ+VaFUYbKW+evR5F4e8OXLdxnvLEmVDRIg6HTbXl2ptxTiP8A+tT203PYf3orxDi2bMqH1sDlHM6ft1pVwDhVxZa7rOhad50MCO/39o87NNNNtmqWRvs4wOCuFtCMpEabDrHUnrT1rKW1liJHT96sxGNt2dFIkH5D+xpNezX2Jb0pyA5/4rzHGWWX1RNXLoF4lxu5cHl2jCj9ROn+aE4bYS283HDXO51E9uVF3GQXBbAEDQADdvz+a5x3hkXLjE/EOanbnr/PfStK4pcbpffs5pLQ3v8ACLdxGDBSVMCDqSwHwmOWh9veq+FouCzB9zrpMz1LHf5D9zNxxKYe2isFMJoAdztLa6EfefpksdjmuPDMROx+2n5yo41L+lMRNy0gjjfHWuGBsNhyHKazriTPxRrp+fem17Dq1tTbEpm9RjXtJkzr0ozivD7a2kCJuQJO86baagg96144qCLxxpdi18NbvAm3/Ty21O4LBhAJXY8yYJP11q3hOLRL651yk6emTIMfDMzsPqaLwVoIAW8sNmZNc2Y6DUaH4SRoZ2AofHcLts2UXMsnMNPSx301zKe0x2nfTFpxphap2hpxLh1vLcuyWQmdog/6f+0h9eW4rKcX4i2JcKSRAysQSZC6LPI6VVxXihBCqVYlYLayNgPnpv3qYNfLUMBLOJMxA9vb+aZ2lb/gXV0v5G+B4QxFwERlHxEhRI1GVjGubTfXWrUZ7WR9IA1z68xoYYqCNYI6kkUJgEIKtczOluWKA6Hoe2u/7ia0mGt23z3VlkdjntkAsk6mY0AE6dp96Ta/KHpP8Mnh0G4tzPbUMSTnEHNAgQM2kgAmN6A8RXmIyhjJhRIEgAA8tdiN+vOmeAwKW0dg5TIx0jTVZBHtI0kD60tu4nzXa6R6VAEwczmASSfoIqcmlbQd1szhwmUjSZ5c5oVYW5LBj6tQI5aRRuL4kCxKaAHc70wwCYe8Aq/HkzFW5EHUBt4I1+lUjyStk6VlGKxIuOgBthSSJKiUDRGbSRoAB0PvTniHB0YK9pYfKDlzTA1kExDbaD2oGzw+3czkPOgYKNwSxYajU5VXl7VRjuIKtzLkttlGUtqSx5sdQASdwI000o6rR0p8dsutsUALBDI11kTABjlp/O+lKHvQpVZGYjPBMGNgB06nnPSvmODsAqEFW105HnP2r5hLIOjyAo1jeg2qsy5pRdUz5hCPMWQra7EmD7kaj3FO/EePtqQARJA+UidaU4HCm5dUJs0kEzAAGs+0VqE8Hm5qxMxEwP5oOHKm1ohDHzlfoUeH3tqma40LdbLPNdYWPnJ+dcX8K1nEIHgqXDKw2YZh+EUfjfAtwKPLuTl2U7fareGYO4StvEJLW2DAHTN3DdevXSaVwSbfd/4KPE4y0LuPcPe3duOFPl55U8vUM2n3+lbBLb3bCO+UuFAYEAzp6W1HMRPcUTiDKeq3BHxK0EFeukjTf60VgYzlTs3p7bafxSyTi1ZpjiW5IyeO4It0Eqio45roD7j+at8Jf02bDv6WuGUY7Bo+E9j1p4AUeqeJ4EZ1dP1bdm3gfPbvWldaJspvcTdGKNacMpgxqPlUrY4PEBraFrYclR6o+LTQ/SpXcQWMcG3l4W2vVZ+tIPEfE/LtzBYhZAG5Jo7jWJyIg6IKxnFsV5rKoPKPoKh5GXitDxVbF3hm6+Ku3HZWGQwW6zIj5amB0rU8VxcDy7YkxB/OlVYC0tmy8RDHlz2n9oqrBoTLxPIfzXlzkp5KSoKXOQvw/DCIa6RObYbR371bjb+T0rudo5Dr+fxRmKvBd4rODiRFzP5bv6gCV2UQdydtj96rxctRLSfFUijCYd7d9r7ktlICLBIMyGjoQNu5nlWoxPEbdqzmBBuuZKiDlO8NIOw0jrrQWI4wqKbmVdfhU6jTWSeev39tMpjse9xyXlmb789ulUV5UlXXshTk6CMViXdwSRLerXURvJH8UHjsJIZ2nUByQuXmAdOQ1idBXHnlG8wkEEgyYnQ66cwIg0+x2LFxWe2pnQFckBlM66ctJ+QrRCHDo0RgkqM/wrHPbK2mOe0fUscj8UE9JEx1rRcN4pbvOEchEGts6elhvLaADuRSaxhcqsqBsxIInLAHOJ5zrRK21s2w1wrmmRAVs3MzJ7jYR89tE+MtoELjpj3Hf8vZbObiszTIU6HbWQCA2k6dNaw/F+JKzmRqDpzO55+0VYqXL5GVQiiY0A3M8tP2qnB4G2zMXc6AkEjePnz/ALUqpdhtvoEwWGzNndfSOR5/KNqZYWwgJcqwGuWGzTE7jkPaat/5tWUqoMiFmAJXXT5f3rQcGwlu/ZAUEwxUiQMrmSpHM6A7Tt9Tzbe1o7jrRVwm2l9ChBbMpzKumXUqMsawFJPPejeDYVcpVrgJYG2rZhMbjkDtAMidaVpwu5bvRZLLdQS2sZtYOw1UiNhtM0fextpl87y7i6hSdMynWJHLpPYdpFVqPQVK+zjxDjFt2/JDSXcGToYVY6RG2vY0hTEm3ZhmlmMn3OgHyFcYq6XbzHgEbGdxygRp7d6FxNhmAk6kSR0nb5/tS0nr+5zZwMED6sw3J1+pmjuH8NF0LEKdlYCSSACJjQCOfWQdaCsYG4fQksx9MATpEnYE7D3196apgraS1p7d0q0qFLK0GGEjeAZA7iardK7sXT00W8Pwt22xtupJyaNoSp5BXU7SB9aV413INvKs5t8vrnpO/Tatfh3W4ouetgDGaTv3k6kenUbaUit8Qt2LxdkzOOkHfmJjXlS3ydglBKNMRXMHetmApB/OVEYZHuaEeuTIXpHP71s8N4owlwjOpB/1IT9xI+9J+Bi2q3HFxSWYgDWVWdssSWIG8Vz5P0ZJ4018S3wliUTMsA5tDP6R8tYmK9AtvmTLM7SU/bWsbwrDjywotgMZDNoC8kwOfbXttRnCvNt3TbB9SiYYkyAcu4H8a1ZQkockaoYagn7HtrhrIxZGI9/wj9qWcQw10MHZiyjfSCsjSR/Ioqzxd7TlbxE6bTGtMrXErV2BI1MEf6SNflNThU9PTD8kKkxGZEudDlbuDXeAeCR0OnyOn2ihLqC2jgbeZA+R/tVmAuAs0dRp3gUPIj8dhig7iVvK596qf1WyJ13HYjajuIJmUHqoP2pXablSxerINDTBYq7kXy3tBTrDESCTLD2zTHaK+VmMVw6XYzuetSm5AoeeKMX8I7AUl4Xg8zFzmLFtByCx++5ojxQ/qtHkamDxijIusk7CdIESY21Neb5UpXS9jPoa8VIW0qAQZ/vVIGVAq8tCe/M0JiL+e6NZjX6fgojEX4XvUYbdlcUaVivHtmZVmJMew5mKpvBFtlQYtmHua7jUqswCZET86QcexzZoU76T0mg7uOe6iqNPSBzlumn5vWuGKWpIWTtluNxLXNR8JEIDA21M69/bevti4rXEDSAByiWYCde0wJ6V3hLkf02YCDlOafSdZaAJMULfw48vzFbW2fiGrf8Ad6gNcpGx6gg6VrxxT0tDv4roc3+HoSxH67c5BPokgjUa6NA6GSNZrjh9u5bXy3MCTl0zhWWJKxsNpBEabVOE4qbVon0MpykkMQR+onY6yTH4G2OcZFaRB3I0DCNI2PIE/wCaFtXFhpakLMbjxb1t3MzESToARvyOYbiFEClmDDYm69y4NJkgbE7x0EdKrHDBcuZbZJAMOx230A6mKeYq6MKiIihzrCzBXfU6SZM0rdLiuxhbxDHeWptiJPxBNwNiPczy71TwbF2jeELl9XpDkZTrz02+9V/8uFgufUdQSN5gknXfbl1qu/w74WXUNsQDGbMQNTsdAewpoqL+L/uK7W0aHiXB18q49sT6x649I0JK77SCRPL3pXgb1y1bIVFBZg2o+ML0Mc203ECmuGd0w7JnM5wTbbVXEZRziRJq/EcGa6jNabKZErBABGpjquk/LtNGMqfF7C1ewuzxG0DmuL6hZYhpcjPJGZTlzTz6DlApX4jutntiRmJBeIOkak99d+dK+JrcV8jtJGxEAn2mTER9KGxl0qhkyx0J+wGvQUZUtRFTfbOeIYlWbKg0TnEyf7ATVC4tpOcAnU6aHvt9Z7UTwK36p3EQY3EgxGu07n+9MuLcKazct+WfW4DZYU7jeD1nagnGOmg0+xdh7jNcQ2izkDMwgyQBmIidYg7dtq0RVLIMqpLy6MJVvWolSOSwRBq7DeH1wzLfZB5UFTIGpKmIBJg6T20qrxZgdUeCoDZZmUVQFAjQaRJkco6ULTWgr8l7YdLNu4U/9NiGUEaktuI5kMJED+aWjgK5PMviCdlG/wAzzNM+BMuzEMU9IGkTMDTlz3pnxTCglCTLkwADp+b610U+0GW9GNwHhlr14Ipi2dSZ1AjaOpp+eCrhSLYA11z7z/M9q+4e4bdxj8OU5d+h3251dxfi+gDQzj1BZ1gc46845xWmMWlT7BDDxlpFmEgMNTlGpbn9OXtX3jGGC3hcLAs1v1LsZkEwR7jfv1rjAKCVugHLpII26Ejcj3pZ4i4iGugKQMoIA+mk/Kr64NP2Ud8qQ2wJwd9ij3GS4dsxP0EiDTGx4Z8tswuBu4ldPasThr1xD5lo+obqdj2NPsH4kW6oz27iMd8jmNNxEiD7Co8ILfROUZemHY22PMCL8KGZ6mP7V8wQgKw3Mk//ACMD/wCMVzdug2zkXKI92Pv0+9TgiGcp2EfT8is3kZIy+KClq2aW+k219qz170tWqdP6YrNcUtxqK6GuzMyZxUoJb1fKPBi2XeILGfC27g/QQD8jVHCbmUhgQI3+417akfKtH4fsret3cO+zjT3rGeW9p3tOCGQwe4G31FY/LxtVJDLehgzTec9YP+3avvEroVSaCxFz1qw6Rz1jnr9frQ/GsR6O5rPjVlouoCHHEHQ7UstMJMkZSRy/yOcUXhsNcvvkRTJ3nZR1Jq/jHDlw4VDqTzMa8vp2r0MbUKi+xIxb2WKxIAuKHB0V5g89Tpqdum1F3sMPLJAkZZJXcj/VpoDQF1f6edZAJjedIBg9SNNY6VbwrF5GIZzBG2WRMHSOms1SSV6KK62O24UDgvMtaW2USWcnVdCAN9STtIgHpWZxmOLqttcxH6Qo+3OurnErly2thdVtyFHSTJiOp1jWjeHcPFkF7hE6Esf09h+1K6W32crQ44db8qyo0kDfoeZrN4jLcNxmZg5MqdtP9orm9xhyzEr6CIQf9u0bGOXMc6EvYxGCZQ6gAZjIILAQSOYnpsKEcclsHJExd9gUjMwVfjbWeuu+5Og11pt4f4nbtuBdkBgdeamdG+Ubd6ZcJS2+GX0zcJMZypBVQfMgRp6WWBrLUtw2Bs+c/mKxUqcigeosIytqPhJ39+0VW4tb7OqV66HF3C23xFwFhoQ6uxaVGhgKNCMsD5zQ4x12wWFu56SxUHKpb1asASI6gzr7VS15Va4gEkgCZYnlER7AQftV2DtlSPMVpacogkAACZMQNqi5OymkhdiMzMXYkmTE8hMwOW0bc6ExOQuocEjUkA66KY/+0U7xloKPzas/bOdyxHpJ+wPL70IP2JR9ZGQZlhWjSO/I/Q1bgrly5etq2ksJbaNdTE8tdvtUS8jnJnCiZE79In2rUxluWotrbVQDKfqGU65hz3Pyo8q00PTfs0nELFy4osf+opCwZywdp1k9e0H3rK8QxSIgtq3mT8I1AIiCT2PL5U443jHtg3Uf+m+e2BqSvpaSDtPSNKxZuG4S5+KB8oH96aFvXsCRtuGWrV5Ua06qBum0nuRrMnWRrTB8B/US4zW1CEEerpqBtzNeb4u35AEgm42rEEgLzjTej+D2jdRnuAH1BV9R3iWnXkCv1rdjwxukWWJP2ai4tjJdC31N0glMgkBo0mZA1rF2FJcR/UukzpqAes8z9hR2HwNy7cKrFq1MbRmA0mOc79NadYfhSWGXSI/Uefz5e1Vm0inJQvdsGxtm5hUEt67urCfShPT+e8UrfAtEtDg6kga/5rWcW4e2ICBASACcwga8t/2pFg8PctPdt3BsOX+++1RlbkvolFqXfZ98PYf+pl3Rl07UZZwSJeuD2YAb6yCY33iueAL5Zu5oLB4XLrIbUR1miBhGuNdfa4uXKeanX6jUTQyQ+LTEvf4L7FsEMCQft84o3DKVbSIJ0+dA8LuC7o49YMOAfhI6dQdD9q0HCsKDBPIzXmcHyoWcqHTD0+wpDxOzvT123pdjrcitko6MiezF3LBBNSmlzD6mvtLyGot4bijbuK/Q6038a8G81VxNoeuPUB+of3rPuK1Xh7iGe2bTHUbUXFSi4sV/Z5vfxBjXccuh7g/MGh8DZuYu4EQQFOpOyjv/AAOdb3i3CLTmSozEx718w+GTD2yLSAtuT3696wLHw0tlYK++gRcNYwNrXfp+t2/PkK834/de9cLt8lGw/v71sruENy4xuNnc6yenKO1Vjg6kzFGHwfL2We1RhhfgZQDqdQOv0q/D4O7cMKpHLWtY/CVD6LqKZ4azlWSgUkVR5/SDxfbEvDuBraEnVuZpF4gxJd4UnIpA02LHUz16fWnXiXiT2wLdsEM2pboOg71n7udEOVfhEnLrEDnIieZ+fSnxpt8hGC4Rl1DLmA5bc+VM7mEQh2CasAZZRpzgAHSDzA1BoPB3C7sFQQFBMn25wfUTP3+WiuYhLVtHCgm6pmQPTsCIHLLl15yKpO0zo00DeH2vWFLi2ty2raZlLC2YlyB3Gh37Uzx/FbFxbTpbhwCGQKNGCAA7DSc2gidOYoTEcQNu2baN/UYTciAFMkQNegB2H7GufDWENxzeByqk67ktrO5Osaz7d6EptK2NxRbwPBh3N5ljT0idh27dKY4u8qAMeZjQba0xRAEWOe3Tb9oFZzxJxBbaFQRmOgHTqe1Zt5JB0hTxq9rkSW1Obnz6/wAVxZwwLW7cE5jBUcp7TEj5UvYXcoNpmDH05FHqOmhkbtq2nKqrV64GU3M2YiQ0akR9Omu+/WtSx/HQnNcqCsbgsrlSASkkwY/0xPvrTbhisbVq41yPLz6DNmjNIBP6gPV3AYac6r4c49MppJhgonePTO/qga7UZcxS27mdLYtiDGWYBj4oPMSDppIrlNpDcfZ34hxgi3YG1sZmg6eY24/9o095rvw9w3O2dh6V1925D5CT86Ro0sBqR9z/AJP71ssNhbi2hDZAJLkgHMx1IHcDp0q/jwu5FIrTZlOP3JFwtqWaFgz8h7CtHwHAi2iIY/prmf8A8jq30On/ALaRLh819C0ZLQzdQXJhR9RPsDWnTy7doqZZrn6QdSTsJ/OdUxtxi37Yeo2I8Tirly4GCkWjOQjnG5Jp693Kq3LhGVIgake8CSzd/wBqljArbtl7mgC9NAOSjt+c6RLxO9dZhaW2FBICtmkAdffShF0Kt9D254stxlti4x6BGH3IFfMLcDXA1zQkzrsWGqqT+bVm8Tj/ACgc5U3TsqzC9zNfeEs7Zy0uHglep5EnZR96opKLuQHj+LofI9sM/lD1ZiWJMi1PIkaT2Gp59aJ4Y0E7wQd99+ferMAFZCCBPJVHpTQ7dTtrVd5/LWBLOYAA3J2AFRlkc3foGkqOOF4fNiLrLt6VgdRJP7itzh7WRQOfP3pf4f4ULNsFh6yczd2O/wBNvkKYu1TjD5OTMuTJbpHLmh7omasc/tVLdKo0TFdy0ZNSmHlfn4alS4D8hBdSusAzhwU35+3er76UIzEArOh370HfoKo13DcJ5ga5mDHbT+Ogqy5gwOVZzgfFWsP/AKTuK27FbiB01B+1PGEeNLsWUnZjMfg8rGJ7f2obDEMNo5dK0+OsBgRWbxltlkDcn6/5rDlg07RpxzTVM5v3on8iluJxWkzymumzAGTz/wBqUmcx6bVOKKNCbj7gupbURv8AnypULxOaIIYc/wBJkHT6RrpqaecUwpuIAFzerYdIP81n0wbzGUz0g1sg0ok62N+FYFi59eUn1ZQwAcDWFPXQQBRN91AuKcwaSupUgBdgR10HPlQuDttqWG+hBgbDTTlPtVycMuOFGULqFUtsR09IOvc1zmvbGSou4NZF+8MwhR8XIEEAAduc1rMWiW0RbahQOSiAPkOs/eq+F4BLQETImZ5nn94r5jXlQ01lnJyY4Nj+IBAc2gA+KdK85xOINxixGpaT2E1oPEuLDIF6sPt/vS7CYJmtsBvo0dTOnuImtGGKirZOTspwWMYf059JZWkR+kyNeUGtBw3DpdAtlcwJaGEZozLMaGCYMaRr0FZ3GcPe2QYy+kPIJgg6adfl1pv4WxjWTmdQU1z75x06aadx6jziLSguxYu9DZ8Atm2yvqATlkepTJJHLfrtzpUyltdgZga09xzjEPIkoI3G+n+w9qGv4WpSfoojnw/w7PcDR8J07t/j946Vq+McI8y2DmC2kG+09SRQfALYAGXc6D+T+daG8b8Re5GGtnKqiXgaM3T2Gkjma3qSwY1f/WU+UWkjJPiVt6KTGbSdySefsOXvWv8ACWB8y4bzCUXRSTueZ9qwn/TLjXLSHdnj6nSvV8q4TD5VEMi7f9xj+SYpOSktdCZZekKPFWItsfLa4EQGTJEk7x8hBrIYniqp6MMoE/E5Ek+018tcHuXbua5qXbM2p0kyeW1FYjBWzdWzYXQbncseck8hVIQi9lccY9fQFgOFbXLgLTqF69yeetPeEYpGuZGRQsE8wJkc+elE4jCTlGUoAMokSBy/T/Nd4ThCEQSG7ggg1gnObnclr0LOVhV/Hp8NkAnaF2Huae+HuEhf6tzW4dROy9l/NftVfCeDqGmNOXetMqgCKrFuW/RkyTpUjh/tVD1ax11/DVLtVTOU3DNUsfz9qsaqWFcE6+v1FSuNalccCXUoO5Zpw9uhbiVEcTOlNeCcYa02UmVND3LdCvbor8HG6u5bi57Zkcx0pPirIO4pTw3ib2jvK1oluW7wzIYbmvX2pZxs5OjMYzCmCDt1/vSdsDHb+a2N21yI1pbicEQdNiduVQljr5IvHJemLOF8NzkFhoumn6jyFM+JYG3aQ27ajzH+Ij9I7E8zTPBWxbTP75B16mgbmFLN5gPqO87H3rPdysp1oTYHgKKNp9/rTB7MaAD6UyLaDQAga+9Lb7MKM5Biiq6ctJOJXuXKml+5A11pDxI6x12oJhEPF4YSAYX+at4PcLfC2U6wZiNNvc/x3qy9byrJkzyFVYnAxbNwBlUdRqT0960RlpJiUMDicha2yIc+hJzE5S0nKwPMgbzQ+IBTNbA9akZSoJzAwRqd9DvQeIxNu5bX1ObgOg7E6zy2nbtT/wAO8KhWuFWBEhQf377/AF9qo5UjgvAYTy1kmXbcjYdh2r7xd8ttUUeu4Y+X5H3o9LiBQSYjf60mxOK82+5U+lIRffn/AD9qbBHlNDQTch1wS1lGf/sEDufyTQfFXnYEsem9NEcJbyH9I+5En+PpXfCMGGHnPG3PkBTZX+rkpdIM5exN4b4ezYy2HE5UZyOnIfOZp94mRzCKwA3LNyFD+DcZ5+NvXMpVfLyoI1yg6NH1+tF8e4I+IvM5uRbAChRMncntzj5VV8Yx30Sf9e/ox+KxeRfLskszaM/M9lrnh2BuIcw0P5pNaHAcKS3J3IJg7n8ijDhgTGpPQfXXp86z5PIbXGGkaHkSVIUWMbcBhhmH3p4mGUxcC5WOsxv2PUVdg+D5jqPkNh7nnT5cMoXKRI/NuntVcSlXyMeTIr0UcLxasCpAVxuBtHIr268/3op2g/mu1KTw+4rqyssqdCeY6H3FMHPL82qjS9EpVej5cP5+fKqW7V232/2qpvz871wpXP7/AJ+4qtz8+ddMdd9/z2+9ctz/AJ7/AIK44+SOoqV9y9qlccFOk0NcSpUqTGQK9uhLtqpUrkEGdKll2QypqVKY4bWOJ5x6hqOfOrrQ8xp3RTAHU19qVnzf7fyPj9hOM4UXAIaCo0jQDmY+dKvOKnLcGu2YfyKlSkyQSWh8cm2WtcI3GtBXmnTTTWpUrIaEA4jQbzSXGDMw6n8NSpToA44LwsMC0azAnn+Gu+MYIXotqYW2SNt22Y/wPbvUqUY9sDOOG8BRSrgL29IkEHWPtTu7hyqEmJFSpXewvoy/ELDMdIFc8LtqHKlIbcNM/P35a1KlVxtqWvoIxv25c8p/sKrJfKUDHJG2mv8AipUoJtCh/goAYoDbNbj7kU5xbS77D1QDGpqVK1ZP9OJJ/wBb/Y+2sDPqOg+/+KJs2V/SIXn1NSpT44IjKTDltgDSuWb6fhqVKqSK2f8APY/7VW/5+/7EVKlAJURP7feq2aN/zn/FSpXHFX4Pz6Vw1SpXHHzLUqVK44//2Q==





  Alıntı
Bu mesajı beğenenler:
#5
src resme ait bağlı kaynak olmayıp, kopyalanan resme ait kaynaktır.
Resim boyutlarını ayarlanabilir, resim yüklenen yerdeki çözünürlük kalitesine göre olduğundan, önerim bulunmamaktadır. Resimlerin kalitesini de resim isleme programları ile yapılabilir.
Visual Basic
  1. Function ResmiBoyutlandir(DosyaYolu As string, Genislik As Long, Yukseklik As Long)
  2. 'On Error Resume Next
  3. Dim YResim As Object, trz As Object, Kopya As String
  4. Kopya = DosyaYolu
  5. Set YResim = CreateObject("WIA.ImageFile")
  6. Set trz = CreateObject("WIA.ImageProcess")
  7. YResim.LoadFile (Kopya)
  8. trz.filters.Add (trz.FilterInfos("Scale").FilterID)
  9. trz.filters(1).Properties("MaximumWidth").Value = Genislik         'Genişlik
  10. trz.filters(1).Properties("MaximumHeight").Value = Yukseklik     'Yükseklik
  11. Set YResim = trz.Apply(YResim)
  12. If Not Dir(Kopya) = vbNullString Then Kill Kopya
  13. YResim.SaveFile (Kopya)
  14. End Function





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Resim Işaretleme Ve Raporlama burhanb 1 94 06-03-2024, 11:26
Son Mesaj: dsezgin
  [FONKSiYON] Bölünmüş Veri Tabanın Yedeğini Alma webtenoyna 1 96 19-02-2024, 01:48
Son Mesaj: dsezgin
  Sürekli Formda Kayda Uygun Resim Ekleme yahyamacit 2 127 18-11-2023, 10:56
Son Mesaj: yahyamacit
  Ortalama Alma snapper 13 237 30-09-2023, 18:30
Son Mesaj: dsezgin
  [VBA] Webden Veri Alma idrisy 1 140 26-08-2023, 04:15
Son Mesaj: dsezgin
  Döngü Ile Veri Alma ates2014 5 171 26-08-2023, 01:38
Son Mesaj: halily
  [VBA] Sharepoint'e Resim Atabilme benuva 1 138 10-08-2023, 18:07
Son Mesaj: dsezgin
  Accesste Txt Den Veri Alma .Sude. 4 266 22-06-2023, 19:52
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi