Opgelost Database maken

[AHulpje]

@OctaFish
Maar wat er dan fout gaat is mij een raadsel, bij jou werkt het wel?
Wellicht msoFalse en msoTrue vervangen door 0 en -1?

 

[OctaFish]

Bij mij werkt het ook prima. Code die ik zelf ook regelmatig gebruik, dus daar zit niks vreemds in. Late Binding, dus dat kan het probleem ook niet zijn.

 

[batfink2002]

Hij doet het bij enkele foto's maar niet allemaal kan het zijn dat het bestand niet te groot mag zijn

 

[AHulpje]

Ik heb het getest met foto's van 10 kB tot 12 MB en geen problemen ondervonden. De foto's worden overigens verkleind opgeslagen, dus de oorspronkelijke grootte is niet van belang. Ben wel benieuwd naar een foto waarbij het fout gaat, kun je hier eens zo'n foto plaatsen?

 

[OctaFish]

Wat bedoel je precies? De code leest een foto in. Dat kan elke foto zijn, ook grote. Ik heb een jpg van 21Mb ingelezen zonder probleem.

 

[OctaFish]

De foto's worden overigens verkleind opgeslagen, dus de oorspronkelijke grootte is niet van belang.

Hou dat goed in het achterhoofd, want je kunt het foto bestand dus niet gebruiken als alternatief fotoarchief .

 

[OctaFish]

Met een kleine toevoeging aan de code kun je de ingelezen foto overigens gebruiken als hyperlink naar de originele foto. Kijk eens of dat werkt?

Sub Zoek_Foto()
Dim sShape As Shape
    With Application.FileDialog(1)
        .Title = "Selecteer foto"
        .Filters.Add "Foto", "*.jpg", 1
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count < 1 Then
            MsgBox "Geen foto geselecteerd.", vbExclamation
        Else
            Set sShape = ActiveSheet.Shapes.AddPicture(.SelectedItems(1), _
                msoFalse, msoTrue, Columns(6).Left + 5, ActiveCell.Top, -1, -1)
            With sShape
                .LockAspectRatio = msoTrue
                .Width = Columns(6).Width - 5
            End With
            ActiveSheet.Hyperlinks.Add Anchor:=sShape, Address:=.SelectedItems(1)
            ActiveCell.EntireRow.RowHeight = sShape.Height
        End If
    End With
End Sub

 

[AHulpje]

Die hyperlink zat al in #10 maar TS had liever de foto direct zichtbaar.
En

.Width = Columns(6).Width - 5

maakt de afmeting van de foto afhankelijk van de door de gebruiker ingestelde breedte van kolom 6, lijkt mij niet wenselijk.

 

[OctaFish]

De aanpassing doet beide: foto inlezen én de (kleien) foto gebruiken als hyperlink. Ik dacht dat je code kon lezen .
En je laatste opmerking? In jouw code loopt de foto, als die breed is, over de knop heen als je een foto wilt vervangen. Vind ik dus op míjn beurt weer niet wenselijk.
Bovendien is het een éénmalige handeling om een kolom op de gewenste breedte in te stellen, en dan foto's te importeren die 'automatisch' die breedte krijgen.

 

[batfink2002]

Deze foto kan ik niet zien en nog veel meer

 

[OctaFish]

Ik denk dat ik snap wat er aan de hand is: met mijn code althans, die uitgaat van de breedte, wordt de rij te hoog. Is met een kleine aanpassing opgelost.

Sub Zoek_Foto()
Dim sShape As Shape
    With Application.FileDialog(1)
        .Title = "Selecteer foto"
        .Filters.Add "Foto", "*.jpg", 1
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count < 1 Then
            MsgBox "Geen foto geselecteerd.", vbExclamation
        Else
            Set sShape = ActiveSheet.Shapes.AddPicture(.SelectedItems(1), _
                msoFalse, msoTrue, Columns(6).Left + 5, ActiveCell.Top, -1, -1)
            With sShape
                .LockAspectRatio = msoTrue
                .Width = Columns(6).Width - 5
                If .Height > 400 Then .Height = 250
            End With
            ActiveSheet.Hyperlinks.Add Anchor:=sShape, Address:=.SelectedItems(1)
            ActiveCell.EntireRow.RowHeight = sShape.Height
        End If
    End With
End Sub

Kan zijn dat er iets vergelijkbaars aan de hand is met de versie van ah. Al stelt die juist de hoogte in en kijkt hij niet naar de breedte.

 

[AHulpje]

Gaat bij mij zonder problemen, zie bijlage.

 

[batfink2002]

Ja ik zie het bij lukt deze foto net als heleboel andere en sommige doen het wel ik weet niet hoe dat kan

 

[OctaFish]

Kijk vooral naar de dimensies van die foto’s. Wellicht heeft de grootte er mee te maken. Overigens stuurde je een foto mee die niet werkte. En die doet het nu wél?

Probeer anders mijn versie eens; niet dat die veel anders is, maar je weet maar nooit. Bovendien zit daar de hyperlink functie in die je kunt gebruiken om het ingelezen plaatje te openen.

 

[AHulpje]

De foto die je stuurde is 1800x4000 pixels, geen native formaat mijns inziens. Ik neem aan dat dat dus een bewerkte foto is. Probeer eens onbewerkte foto's te importeren.

 

[OctaFish]

Toch is die foto prima in te lezen.

 

[AHulpje]

Jawel, maar wil toch proberen achter de oorzaak te komen. Zou nu dan toch wel eens een foto willen hebben waarmee het niet lukt.

 

[batfink2002]

Hierbij 3 foto's die het bij mij niet lukt als ik ze koppel dat ik ze zie

 

[OctaFish]

Geen enkel probleem in mijn versie. Heb je die überhaupt al een keer geprobeerd? En heb je de foto's wel met de originele grootte meegestuurd?

 

[AHulpje]

Worden alle drie zonder probleem verwerkt bij mij.
Met welke versie van Excel werk je?