[VBA] Import image
Import image [VBA] - VB/VBA/VBS - Programmation
Sujets relatifs:
- [VBA] Sécurité
- VBA sélectionner contenus de plusieurs fichiers excel
- [VBA] Renseigner des signets Word dans une boucle For.
- [VBA] problème pour coder
- export range en image
- Host Explorer et VBA
- VBA avec recherche v
- Construire une image en .bmp à partir d'une matrice RGB
- Bug VBA : conversion .txt en .xlsx - Excel redémarre
- Récupérer valeur dans un tableau avec boucle sous VBA
Marsh Posté le 26-06-2015 à 09:02:51
Salut à tous !
Voilà mon problème:
Je souhaite en cliquant sur un bouton importer une image qui a pour nom la valeur d'une cellule d'une autre feuille. Bon ça c'est simple, mon soucis c'est que cette image (qui est un plan) est au format A3, et une fois importée son echelle à changé! (67% mais pas toujours). Du coup il me faut cliquer sur ses propriétées et remettre l'echelle à 100% avant de pouvoir lancer une impression.
J'aimerais juste qu'excel m'importe mon image telle quelle sans me la redimensionner !
Vous avez des idées?
Autre chose, le plan à la base est exporté en A3 mais au format pdf, ya moyen en vba de prendre directmeent le pdf, d'en tirer l'image et de la mettre dans ma feuille ? (ça m'eviterait une étape)
Mon code so far:
Sub importer_image()
Dim img As Shape
For Each img In Worksheets("Plan" ).Shapes
If img.Name Like "Picture *" Then
img.Delete
End If
Next
Dim nom_image As String
Range("A1" ).Select
nom_image = Sheets("débit" ).Range("C4" ).Value
Sheets("Plan" ).Pictures.Insert("C:\Users\...\Images\" & nom_image & ".png" ).Select
With Selection
.ScaleWidth 1, msoTrue
.ScaleHeight 1, msoTrue
End With
End Sub
Ca me renvoit "object doesn't support this property or method"
Message édité par cpassimal le 26-06-2015 à 09:59:48